не роботает правильно простая програма на Паскале, помогите!!!

Program Rozgaluzhenna;
var x: integer;
y: real;
begin
Writeln('Введіть значення х');
Readln(x);
if x<0 then
y:=(3*x+2)/(x-8)
else
begin
if (x<=1) and (x>=0) then
y:=power(sin(x),2)+3.18*power(x,-2)/(x+3*cos(x))
else
y:=power(x,3)+3*power(x,-4)+power((x-4),0.5);
end;
writeln('y=',x);
end.

Запускаю програму, x всегда ровно y, что вожу, то и выводит, где ошыбка?
Регистрируйтесь, делитесь ссылками в соцсетях, получайте на WMR кошелек 20% с каждого денежного зачисления пользователей, пришедших на проект по Вашей ссылке. Подробнее
ЛУЧШИЙ ОТВЕТ
Магистр (1010)
writeln('y=',x);

так ты х и выводишь.

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