уж если использовать модуль Math то наверное так:
Код:
program FindMaxMin;
{$APPTYPE CONSOLE}
uses
SysUtils,math;
var
x,y,z:real;
begin
readln (x,y,z);
writeln ('max=',max(max(x,y),z));
writeln ('min=',min(min(x,y),z));
readln;
End.
ну а если их больше трех- то на этот случай есть
функции Max и Min которые могут работать с массивом
Код:
function MinValue(const Data: array of Double): Double;
function MaxValue(const Data: array of Double): Double;
Вот только устроит ли такое решение твоего препода?