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

var i,s:integer;beginfor i:=1 to 10 dos:=s+i;writeln(s);end.

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