Вычислить используя процедуру

var y:real;a,b,c:integer;
procedure chet(a,b,c:integer;var y:real);
function max(a,b,c:integer):integer; begin
 
if a>b then if a>c then max:=a;
if b>a then if b>c then max:=b;
if c>a then if c>b then max:=c;
 
end;
function min(a,b,c:integer):integer; begin
 
if a<b then if a<c then min:=a;
if b<a then if b<c then min:=b;
if c<a then if c<b then min:=c;
 
end;
begin
y:=(max(a*a+b,b*b+c,c*c+a)-min(a*b,b*c,a*c))/max(a+b,b+c,c+a);
end;

 if (a>b) and (a>c) then max:=a
else if b>c then max:=b
else max:=c;

uses crt;
var a,b,c:integer;
y:real;
function max(a,b:integer):integer;
begin
 if a>b then max:=a else max:=b;
end;
 
function min(a,b:integer):integer;
begin
 if a<b then min:=a else min:=b;
end;
 
begin
 clrscr;
 readln(a,b,c);
 y:=(max(a*a+b,max(b*b+c,c*c+a))-min(a*b,min(b*c,a*c)))/max(a+b,max(b+c,c+a));
 writeln('Y=',y:0:4);
 readln;
end.

uses crt;
var a,b,c,k1,k2,k3:integer;
y:real;
procedure max(a,b:integer: var c:integer);
begin
 if a>b then c:=a else c:=b;
end;
 
procedure min(a,b:integer; var c:integer);
begin
 if a<b then c:=a else c:=b;
end;
 
begin
 clrscr;
 readln(a,b,c);
 max(a*a+b,max(b*b+c,c*c+a,k1),k1);
 min(a*b,min(b*c,a*c,k2),k2);
 max(a+b,max(b+c,c+a,k3),k3);
 y:=(k1-k2)/k3;
 writeln('Y=',y:0:4);
 readln;
end.