(составить программу определения меньшей из двух величин x и y, где x=2a^2, а y=3b. значения a и b вводятся с клавиатуры. x, y и результат обработки вывести на экран.

Program prog;
uses crt;

var a, b, x, y : real;

begin
clrscr;

write('A = ');
readln(a);
write('B = ');
readln(b);

x:=2*sqr(a);
y:=3*b;

writeln;
writeln ('X = ', x:0:3, '   Y = ', y:0:3);

if (x>y) then writeln('Min = ', y);
if (x<y) then writeln('Min = ', x);
if (x=y) then writeln('X = Y');
end.