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

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.