4) а < 0
судя по этому должна быть ошибка в паскале...
Слово "слон" если лишнее надо убрать
Определим размер изображения 2362*3543=8368566 пикс.
Определим информационный объём файла 3*8368566=25105698 байт. Переведён в более крупную единицу: 25105698/1024=24517,28Кбайт
Ещё в более крупную: 24517,28/1024=23,98Мбайт. Можно округлить и получим 24 Мбайт
Uses crt;
const n=20;
var i,min:integer;
a:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
a[i]:= random(2001)-1000; {read (a[i])}{ручной ввод чисел}
min:=1001;
for i:=1 to n do
if (a[i]>0) and (a[i]mod 3=0) and (odd(a[i])) and (a[i]<min) then
min:=a[i];
if min<>1001 then
writeln(min)
else
writeln('нет чисел удовлетворяющих заданному условию');
end.