program raf105;
var a,i:integer;
begin
for i:=1 to 35 do
a:= a+i;
writeln('Сумма: ',a);
end.
Язык программирования PascalABC
program raf105;
var a,i:integer;
begin
for i:=1 to 35 do
a:= a+i;
writeln('Сумма: ',a);
end.
Язык программирования PascalABC