program p1;
var x, y: integer;
begin
writeln ('Введите x');
readln (x);
y:=7*sqr(x)-3*x+6;
writeln ('y=', y);
end.
program p1;
var x, y: integer;
begin
writeln ('Введите x');
readln (x);
y:=7*sqr(x)-3*x+6;
writeln ('y=', y);
end.