А хотя да, одно не то.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x,a,y,c,d:Real;
function max2
(x1,x2:Real):Real;
var max:Real;
begin
max:=x1;
if max>x2
then max:=x2;
max2:=max;
end;
function min3
(x1,x2,x3:Real):Real;
var min:Real;
begin
min:=x1;
if min<x2
then min:=x2;
if min<x3
then min:=x3;
min3:=min;
end;
begin
Writeln ('vvod x,y,c,d');
Readln (x,y,c,d);
if(x*y>3)
then a:=((x*x*x)+ln(exp((c*d)*ln(x*y)))/ln(10))
else
if ((x*y>2)and (x*y<3))
then a:=min3(x,y,max2(c*x,d*y))
else
a:=((exp((c*d)*ln(2)))- x);
Writeln ('a=', a:3:2);
Readln;
end.