Question

вывести сумму первых 25 натуральных чисел

Answer 1

PascalABC

var: k,s,i: integer;
begin
k:=1;
s:=0;
for i:=1 to 25 do 
  begin
   s:=s+k;
   k:=k+1;
  end;
writeln(s);
end.