Вариант 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 даже представить не могу, извините:)