var a,s,i: integer;
begin
s:=0;
for i:=1 to 5 do begin
write('введите число: ');
readln(a);
s:=s+a;
end;
write('сумма: ',s);
end.
var a,s,i: integer;
begin
s:=0;
for i:=1 to 5 do begin
write('введите число: ');
readln(a);
s:=s+a;
end;
write('сумма: ',s);
end.