Question

с клавиатуры вводятся целые числа признаком конца ввода является 0. найти сумму тех чисел среди введённых, которое больше 10

Answer 1

var  sum,n:integer;
begin
n:=1;
while(n<>0) do begin
readln(n);
if(n>10) then
sum:=sum+n;
end;
writeln(sum);
readln;
end.