Вариант 7: 1. определить максимальное и минимальное значения из двух различных вещественных чисел. 2. дано трехзначное число. определить, какая из его цифр больше а) первая или последняя, б) первая или вторая, в) вторая или последняя 3. даны вещественные положительные числа a,b,c. выяснить, можно ли прямоугольник со сторонами а,b уместить внутри прямоугольника со сторонами с, d так, чтобы каждая из сторон одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника.

1)
var a, b: real;
begin
     readln(a, b);
    if (a > b) then writeln(a)
    else
        if (a < b) then writeln(b)
        else
            writeln('a = b');
end.

2)
var a, b, c: integer;
begin
     readln(a);
     b := a mod 100 div 10;
     c := a mod 10;
     a := a div 100;
     write('a) ');
    if (a > c) then writeln(a)
    else
        if (a < c) then writeln(c)
        else
            writeln('=');
     write('b) ');
    if (a > b) then writeln(a)
    else
        if (a < b) then writeln(b)
        else
            writeln('=');
     write('c) ');
    if (c > b) then writeln(c)
    else
        if (c < b) then writeln(b)
        else
            writeln('=');
end.

3 даже представить не могу, извините:)