program test;
var
x, y: integer;
begin
write('Enter x: ');
readln(x);
y := x * x + 3 * x - 7;
writeln('y = ', y);
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program test;
var
x, y: integer;
begin
write('Enter x: ');
readln(x);
y := x * x + 3 * x - 7;
writeln('y = ', y);
end.