Составьте циклический алгоритм сложения первых 10 натуральных чисел. надо.

Program zzz;
var a, i, s: integer ;
begin
s:=0;
for i:=1 to 10 do
s:= s + i;
WRITELN (' сумма первых десяти чисел равна  ' , s);
end.