посчитайте с программированием ;)

: 1) var

  a1, a2, a3: integer;

begin

  write ('Введите три числа: ');

  readln (a1, a2, a3);

  if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then

      writeln(a1)

  else

      if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then

          writeln(a2)

      else

          writeln(a3);

end.

2)

program task1;

var

   a, b: integer;

begin

   writeln('Введите 1 число: ');

   read(a);

   writeln('Введите 2 число: ');

   read(b);

   if a > b then

       begin

           write('Максимальное: ', a);

           write('Минимальное: ', b);

       end

   else if a = b then

       write('a = b')

   else

       begin

           write('Максимальное: ', b);

           write('Минимальное: ', a);

       end;

end.

Последнее не смог