Question

С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.

Answer 1

Var  a, n, s: integer;
begin 
a := 1; 
while a mod 5 <> 0 do  begin   
readln(a);   
if a > 10 then       
begin           
inc(n);           
s := s + a;        
end;    
end;   
writeln(s);
end.