Прошу решить. . . Записать простым кодом паскаля. . .

var x,y,z:integer;

begin

writeln('введите х');

readln(x);

y:=10*sqr(x)+2;

z:=7*sqr(x)-10;

writeln('y=',y);

writeln('z='z);

end.