Задание по оператору if

var
    a, b, c, d : Integer;
 
function Max(x, y : Integer) : Integer;
begin
    if (x < y) then
        x := y;
    Max := x;
end;
 
function Max3(x, y, z : Integer) : Integer;
var
    Result : Integer;
begin
    if (x > y) And (x > z) then
        Result := x
    else
        if (y > z) then
            Result := y
        else
            Result := z;
    Max3 := Result;
end;
 
function Min(x, y : Integer) : Integer;
begin
    if (x > y) then
        x := y;
    Min := x;
end;
 
begin
    Write('a, b, c, d='); ReadLn(a, b, c, d);
    WriteLn('y=', (Min(a, b) * Max3(b, c, Min(a, d)) / Min(a, Max(c, d))):0:3);
end.

Program Variant1;
 
var
 a, b, c, d, y: real;
 
begin
 WriteLn('Введите a, b, c, d: '); 
 ReadLn(a, b, c, d);
 if (a < b) then
  y :=a
  else
  y :=b;
 if ((b > c) and (b > a)) then
  y := y*c
  else
  if ((c > a) and (c > d))then
   y :=d
  else
   y :=y*d;
  if ((a > c) and (a > d))then
   y :=y/d;
  WriteLn('y=', y);
end.

const
    //pi = 3.14159265358979; //если пи нет в вашей версии паскаля
    ans : Array[Boolean] Of String = ('Шар не проходит', 'Шар проходит');
var
    r, p, q : Double;
begin
    Write('r='); ReadLn(r);
    Write('p='); ReadLn(p);
    Write('q='); ReadLn(q);
    q := q * PI / 180;
    WriteLn(ans[r < (2 * P * sin(q / 2))]);
end.

var
    a, b, c, d, y, t : Real;
begin
    Write('a, b, c, d='); ReadLn(a, b, c, d);
    //первый минимум
    if (a < b) then
        y := a
    else
        y := b;
    //минимум внутри максимума
    if (a < d) then
        t := a
    else
        t := d;
    //максимум
    if (b > c) And (b > t) then
        y := y * b
    else
        if (c > t) then
            y := y * c
        else
            y := y * t;
    //максимум в минимуме
    if (c > d) then
        t := c
    else
        t := d;
    //минимум
    if (a < t) then
        y := y / a
    else
        y := y / t;
    WriteLn('y=', y:0:3);
end.