С клавиатуры вводятя числа, пока не будет введено делящееся на 5, посчитать сумму тех из них, которые больше 10
(pascal)
var a,b:integer
begin
while a<>5 do
read(a);
if a>10 then b:b+a;
end;
write(b);
end.