program countnum;
CONST size=8;
VAR sum,number:longint;
count:integer;
begin
writeln('type 8 numbers on one or more lines');
sum := 0;
count := 0;
while count < size do begin
read(number);
sum := sum+number;
count := count+1;
end;
writeln('The sum of numbers was ',sum);
end.