Написать программу в Pascal ABC. Последовательность чисел заканчивающихся на 0 (ноль). Необходимо найти количество чисел у которых количество десятков "4" или "6".

Var i, j, sum: integer;

a: array [1 ... 10000] of integer;

begin

//ввод необходимых характеристик

Writeln ('Введите числа (0 - признак окончания ввода) ');

a[1]:=1;

i:=1;

while (a[i]0) do

begin

i:=i+1;

readln (a[i]);

while (a[i] mod 10 0) do

begin

Write ('Введите числo кратное 10. '); readln (a[i]);

end;

end;

i:=i-1;

//нахождение количества чисел, подходящих условию

sum:=0;

for j:=2 to i do

if (a[j] mod 100 = 40) or (a[j] mod 100 = 60) then sum:=sum+1;

Writeln (sum);

end.