Var
a, b, x, y, min: integer;
begin
Write('Введите через пробел числа a,b: ');
Readln(a, b);
x := 2 * sqr(a);
y := 3 * b;
if x < y then min := x
else min := y;
Writeln('x=', x, ', y=', y, ', меньшее=', min)
end.
Тестовое решение:
Введите через пробел числа a,b: 8 11
x=128, y=33, меньшее=33