спасибо всем ) плучилось вот так
program Project1;
Код:
{$APPTYPE CONSOLE}
uses
SysUtils,math;
var
x,y,z:real;
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
function min (a,b:real):real;
begin
if a<b then min:=a else min:=b;
end;
begin
readln (x,y,z);
writeln ('max=',max(max(x,y),max(y,z)));
writeln ('min=',min(min(x,y),min(y,z)));
End.
Админ: Не забываем про теги! При рецедиве последуют санкции!
осталось только остановить программу в конце.....