Напишите программу , которая в последовательности 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.