Написать программу вычисления у в зависимости от значения х: у= 1/х^2, при х< 0 у=х/6, при других х !

Program HelloWorld;var x,y:double;begin    x:=12;    if(x<0) then y:=1/(x*x)    else y:=x/6;    writeln(y:0:2);end.

Var
x:integer;
y:real;
begin
readln(x);
if x < 0 then
begin
y:= 1/x*x;
end
else
y:=x/6;
writeln(y);
end.