var s:integer;
begin
s:=1+2+3+4+5;
writeln('Сумма чисел равна: ',s);
end.
var
s,i: integer;
s:=0;
for i:=1 to 5 do
s:=s+i;
writeln('Сумма чисел ',s);
