Первый номер плиз(((
Var i,s:integer; Begin s:=0; For i:=1 to 50 do s:=s+i; Writeln('s=',s); readln; end.
Спасибо,надеюсь правильно