7.1.. Napisati program za ispis reciprocne vrijednosti broj ako je različit od nule

PROGRAM RAZ3_1_4;
USES
  WinCrt;
VAR
  x, y : REAL;
BEGIN
  WRITE('Broj  ');
  READLN( x );
  IF x <> 0 THEN
    y :=  1/x ;
  WRITELN('x = ', x, '   y ', y );
END.

Ispis na ekranu:

Index