Pretaktovanie.sk

Takze final verzia programu vyzera asi takto:
program delenie;
uses crt;
var x,y: real;
begin
x:=0;
y:=0;
writeln('Zadaj x: ');
readln(x);
if (x=1) then
begin
writeln('Nemozes delit nulou');
end
else
begin
y:=(x*x+1)/(x*x-1);
writeln('y= ',y);
end;
end.

Teraz to uz funguje akoby malo. Este ...

Vdaka chlapy za vas cas a pomoc

Zdravim,
Potreboval by som naprogramovat, ale nejako sa neviem pohnut v pascale.
Mam takyto priklad:
y=(x2+1)/(x2-1)
(x2 znaci, ze x je na druhu) a ( / znaci delenie)
Za kazdu pomoc dakujem.