7.                                                                          

program raf105;

var

 num,max: integer;

begin

 writeln('Вводите числа по очереди. Что бы закончить введите 0');

 max:= -99999;

 repeat

   readln(num);

   if num > max then max:= num;

 until num = 0;

 writeln('Вывод: ',max);

end.

8.                                                                          

program raf105;

var

 num,min: integer;

begin

 writeln('Вводите числа по очереди. Что бы закончить введите 0');

 min:= 99999;

 repeat

   readln(num);

   if (num < min) and (num <> 0) then min:= num;

 until num = 0;

 writeln('Вывод: ',min);

end.

9.                                                                          

program raf105;

var

 num,count,max: integer;

begin

 write('Введите количество чисел: ');

 readln(count);

 writeln('Вводите числа по очереди');

 max:= -99999;

 for var i:=1 to count do

   begin

     readln(num);

     if (num > max) and (num mod 5 = 0) and (num <> 0) then max:= num;

   end;

 if max <> -99999 then writeln('Вывод: ',max)

   else writeln('Таких чисел нет.');

end.

PascalABC