Напишите программу на языке Паскаль,1) должно быть 5 переменных,2) Определить условие число mod 4 for кол-во чисел to 1000 mim:30000 + Прикрепляю фото! Мне надо через 2 часа это сдать помогите пожалуйста

var n,i,a,min:integer;beginreadln(n);min:=30000;for i:=1 to n do begin readln(a); if (a<min)and(a mod 10 = 4) then min:=a; end; writeln(min);end.Пример:5244814123414