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

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.