var s:integer;

begin

s:=1+2+3+4+5;

writeln('Сумма чисел равна: ',s);

end.

var  

 s,i: integer;

begin

 s:=0;

 for i:=1 to 5 do  

  s:=s+i;

 writeln('Сумма чисел ',s);  

end.