Функции нахождения минимального, максимального из двух значений

wellst

Помогите, пожалуйста, написать программу Заранее благодарен
1 ответ

wellst

Uses CRT;
Var
a,b,c,x,y,u:real;
 
function maxel(a,b,c:real):real;
Var
 max:real;
begin
 max:=a;
  if b>max then max:=b;
  if c>max then max:=c;
  maxel:=max;
end;
 
function minel(c,b:real):real;
Var
 min:real;
begin
 min:=c;
  if b<min then min:=b;
  minel:=min;
end;
begin
Clrscr;
Writeln('Ââåäèòå x:');  Readln(x);
Writeln('Ââåäèòå y:');  Readln(y);
if (1+x+y<>0) then
a:=(1/1+x+y)+abs(x+y);
b:=sin(abs(x+y));
c:=cos(x+2)-2*y;
u:=maxel(a,minel(b,c),0);
writeln('U:=',u);
readln;
end.
примерно так у меня получилось, может, что-то неверно?