Write a program in Pascal ABC. A sequence of numbers ending in 0 (zero). It is necessary to find the number

Write a program in Pascal ABC. A sequence of numbers ending in 0 (zero). It is necessary to find the number of numbers in which the number of tens is “4” or “6”.

Var i, j, sum: integer;
a: array [1..10000] of integer;
begin
// enter the required characteristics
Writeln (‘Enter numbers (0 – sign of the end of input)’);
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 (‘Enter a multiple of 10.’); readln (a [i]);
end;
end;
i: = i-1;
// find the number of numbers that match the condition
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.