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 spracovat...

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.