вычислите сумму первых 10 натуральных чисел.Использовать счетчик типа S=S+A,

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

Поправочка )
var A,S:integer;
begin
for A:=1 to 10 do
S:=S+A;
writeln(S);
end.
 Разница не велика, но просто что бы другому человевку было понятно )