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.
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.