[tex]y = \frac{ {x}^{2} - 7x + 10 }{ {x}^{2} - 8x + 12 } [/tex]
Вычислить в Паскаль, умоляю помогите

и еще один вопрос сейчас будет, если сможешь помоги, прошу!!

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.