Напишите программу, которая в последовательности целых чисел определяет количество двухзначных чисел кратных 5​

Ответ:

var a,k: integer;

begin

a:=1;

k:=0;

while (a<>0) do  

begin

readln(a);

if ((a<100) and (a>9) and (a mod 5 =0)) then k:=k+1;

end;

writeln(k);

end.

Объяснение: