Написать программу на представленную блок-схему в PASCALABC.NET в соответствующем программном файле.

program znanija1;

uses crt;

var

sum,count,n: integer;

begin

sum:=0;

count:=0;

while count<5 do

begin

Read(n);

sum:=sum + n;

count:=count + 1; //inc(count)

end;

write(sum);

end.

Объяснение: