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;
ReadLn;
end.
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.