вычислить в паскаль, умоляю

Program n_1;
var x, y: real;
begin
readln(x);
if (x=6) or (x=2) then writeln ('Нет корней')
else begin
y:=(x*x-7*x+10)/(x*x-8*x+12);
writeln(y:0:10);
end;
end.