Нужно составить программу для вычисления по формуле: 1) y = 2x + x² - 4x x*x
2) — || — y = 4a + 3b

program Test;

var

 y, x, a, b: Double;

begin

 Write ('Введите x, a, b: ');

 ReadLn (x, a, b);

 y := 2 * x + x * x;

 WriteLn ('y = ', y :10 :5);

 y := 4 * a + 3 * b;

 WriteLn ('y = ', y :10 :5);

 ReadLn;

end.