Program bai1;
uses crt;
var i,n,s: integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('tong = ' ,s);
readln;
end.
Program nts;
uses crt;
begin
clrscr;
writeln('tong = ' ,55);
readln;
end.
dễ như ăn cháo nha bạn người khác giúp nhưng bạn phải áp dụng mà tư duy nha