Составьте программы по паскалю : 1) 5x^2 + 4y 2) 34x^2 + 2ab

1) var
  x, y: real;

begin
  write('x y = ');
  readln(x, y);
  writeln(5 * x * x + 4 * y);
end.

2) var
  x, a, b: real;

begin
  write('x a b = ');
  readln(x, a, b);
  writeln(34 * x * x + 2 * a * b);
end.