Напишите программу которая в последовательности натуральных чисел определяет произведение двухзначных чисел кратных 4 и оканчивающихся на 4 .Программа получает на вход количество чисел в последовательности а затем сами числа

program psck;varcount, comp, num : integer;begin read(count); comp:=1; while count>0 do begin count:=count-1; read(num); if (num div 100 = 0) and (num mod 4 = 0) and (num mod 10 = 4) then comp:=comp*num; end; write('Произведение чисел - ',comp);end.

program psck;varcount, comp, num : integer;begin              read(count);       comp:=1;              while count>0 do       begin           count:=count-1;           read(num);           if (num div 100 = 0) and (num mod 4 = 0) and (num mod 10 = 4)            then comp:=comp*num;       end;              write('Произведение чисел - ',comp);           end.