Приведите в соответствии запись программного кода... Плееез
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.
а Write('значение y=',y)?
куда?
там же написано