var S, C:integer;begin S := 0; for C := 1 to 100 do S := S + C; writeln('S = ', S); readln;end.
Program zadacha;
var s,c:integer;
Begin
s:=0;
for c:=1 to 100 do
s:=s+c;
writeln(s);
end.
var
S, C:integer;
begin
S := 0;
for C := 1 to 100 do
S := S + C;
writeln('S = ', S);
readln;
end.
Program zadacha;
var s,c:integer;
Begin
s:=0;
for c:=1 to 100 do
s:=s+c;
writeln(s);
end.