program znanija1;
uses crt;
var
sum,count,n: integer;
begin
sum:=0;
count:=0;
while count<5 do
Read(n);
sum:=sum + n;
count:=count + 1; //inc(count)
end;
write(sum);
end.
Объяснение:
