Написать программу на abc pascal. условие

Program pr;

var x,y: integer;

begin

x:=3;

y:=7*x*x+5*x+2;

writeln('При х=',x,', у=', y);

x:=2;

y:=7*x*x+5*x+2;

writeln('При х=',x,', у=', y);

end.