Question

Помогите пожалуйста!(

Answer 1

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