bài 1:
uses crt;
var i,t,x:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
begin
x:=sqr(i);
t:=t+x;
end;
writeln('gia tri cua bieu thuc P=1^2+2^2+3^2+4^2+5^2+...+10^2 la: ',t);
readln;
end.
bài 2 nhé:
var s,n:integer;
begin
repeat
inc(n);
s:=s+n;
until n>1013;
write('tong la ',s);
end.