Question

Первый номер плиз(((

Answer 1

Var i,s:integer;
Begin
s:=0;
For i:=1 to 50 do
s:=s+i;
Writeln('s=',s);
readln;
end.