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

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