Написать программы на языке паскаль

Объяснение:

7)

program Zadacha7;

var  x,  max: integer;

begin

readln (x);

max:=x;

while (x <> 0) do begin

readln (x);

if (max<x)

then max := x;

end;

writeln (max);

end.

8)

program Zadacha8;

var  x,  min: integer;

begin

readln (x);

min:=x;

while (x <> 0) do begin

readln (x);

if (min>x)

then min := x;

end;

writeln (min);

end.

9)

Сейчас напишу и дополню

1.Найти фотографии своего класса.
2.Создать первый слайд:Вставить фотографию всего класса,написать кто сделал презентацию и сделать надпись "Наш класс".
3.Сделать второй слайд: написать о своём классном руководителе,вставить его фото и сделать заголовок.
4.Сделать четвертый слайд:написать о себе,вставить своё фото и сделать заголовок.
5.Создавать  слайдов столько сколько у тебя одноклассников,делать их так же как про себя.Спрашивать у них про них.
6.Предпоследний слайд сделать с пожеланиями своим одноклассникам.
7.На последнем слайде можно поставить красивую картинку или смайл и написать за внимание!

Var
a,k,m,min,i,flag:integer;
    begin
            readln(a);
            m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе}
              while m >0 do     
                  begin         
                          m:=m div 10;         
                          k:=k+1;     
                  end;     
min:=9; {записываю самое большое нечетное число}
{в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag  будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных}
            for i:=1 to k do   
                      begin       
                             if   (a mod 10<=min)and(a mod 2<>0) then           
                                begin             
                                     min:=a mod 10;             
                                     flag:=1;           
                                end;       
                          a:=a div 10;   
                     end;         
      if flag=0 then           
                writeln('нет нечетных')         
      else             
                writeln(min);
end.