По заданной блок-схеме составить программу

var
  y : Real;
  a, b, c, d : Integer;
begin
  WriteLn( 'Введите a, b, c, d' );
  ReadLn( a, b, c, d );
 
  if a < d then
    y := Sqr( a ) + Exp( Ln( d * b ) * ( 1 / 3 ) )
  else
    y := Sqr( c ) + Exp( Ln( a * d ) * ( 1 / 3 ) );
 
  WriteLn( 'Y = ', y:4:4 );
  ReadLn;
 
end.

var a,b,c,d:integer;
    y:real;
begin
readln(a,b,c,d);
if a<d then y:=sqr(a)+sqrt(d*b)*(1/3)
   else y:=sqr(c)+sqrt(a*d)*(1/3);
writeln(y:0:3);
end.

var a,b,c,d:integer;
    y:real;
begin
readln(a,b,c,d);  {Считываем с клавиатуры а,...}
if a<d then y:=a*a+sqrt(d*b)*(1/3) {Если а меньше d тогда у присваиваем ...}
   else y:=c*c+sqrt(a*d)*(1/3);  {иначе у присваиваем ...}
writeln(y:0:3);  {у выводим на экран(целая часть не ограничена, дробная до 3 знаков)}
end.