DE
Dovlet Esenov
Переведите с C++ на Pascal
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<<"не найдено\n";
else cout << min << '\n';