Переведите с C++ на Pascal

Question

int a[20]; int min = -1; for(int k = 0; k < N; k++){ if ((a[k] > 99) & (a[k] < 1000)&(a[k]%8)){ if (a[k] >min) min = a[k]; } } if (min == -1) cout<<"не найдено "; else cout << min << ' ';

Иван · Accepted Answer

var
N, min, k : integer;
a : array[1..20] of integer;

begin
min := -1;
a[1] := 102;
a[2] := 101;
a[3] := 2;
a[4] := 3;
a[5] := 4;
a[6] := 5;
...
a[20] = 3
for k := 1 to 20 do
begin
if((a[k] > 99) and (a[k] < 1000) and (a[k] mod 8 0)) then
begin
if a[k] > min then min := a[k];
end;
end;
if min -1 then writeln(min)
else writeln('не найдено');
end.