Для какого из указанных значений числа x истинно выражение ( 9 > x) и ø ( x > 2)? 1) 2 2) 4 3) 6 4) 8

Program treugolnik; uses crt; var a,h,s: real; begin clrscr;           write('основание a = ');           readln(a);           write('высота h = ');           readln(h);           writeln;           if (a< =0) or (h< =0) then           writeln('значения не могут быть отрицательными или равняться нулю')           else                     begin           s: =(1/2)*a*h;           writeln('площадь треугольника s = ',s);           end;           readln; end.

ответ:

function min(a, b: integer): integer;

begin

    if a > b then

        min : = b

    else

        min : = a;

end;

begin

    write(min(1, min(2, min(3, min(4, min(5, min(6, min(7, min(8, min(9, ;

end.

объяснение:

чтобы найти минимум из нескольких значений, нужно передавать аргументом функции эту же функцию, но со следующим значением. на : мы сравниваем не 8, 9 и 10, а 8 и результат сравнения 9 и 10 (результат получаем с функции)