приведите в соответствии запись программного кода... Плееез​

Program PR6;

var x, y : integer;

begin

readln(x);

writeln('значение y=',y);

write('введите значение x =');

if x = 3 then y:=x;

if x=0 then y:=x+1;

if x=-2 then y:=x^2+x-2;

if x=-8 then y:=x^3;

end.