program test;var x, y: real;begin write('Enter x: '); readln(x); y := 3 * x + 5 * (x * x); writeln('x = ', x:0:0); writeln('y = ', y:0:0); readln;end.
