посчитайте, , задачу по информатике. Паскаль, 9 класс. Массивы.

var a: array[1. . 20] of integer;

i, maximal:integer;

begin

maximal := -1;

for i:=1 to 20 do begin

a[i] := random(10000);

write(a[i],' ');

if (a[i] div 1000 = 0) and (a[i] div 100 <> 0) and (a[i] mod 4 = 0) then begin

if a[i] > maximal then maximal := a[i];

end;

end;

writeln();

if maximal = -1 then write('Не найдено')

else write(maximal);

end.