Напишите программу , которая в последовательности 10-ти натуральных чисел определяет максимально число, оканчивающееся на 4. Если таких чисел нет , вывести (NO). (Язык программирования -Паскаль)

program primer;var      n,i,max,z:integer;begin      max:=0;      for i:=1 to 10 do begin            read(n);            if(n mod 10 = 4) then begin                  inc(z);                  if(max<n) then max:=n;            end;      end;      if(z>0) then writeln(max)            else writeln('NO');end.