7.2.. Napisati program za odredjivanje y po formuli:

PROGRAM RAZ3_12;
USES
  WinCrt;
VAR
  a : INTEGER;
  y : REAL;
BEGIN
  WRITE('Broj  ');
  READLN( a );
  IF a MOD 2 <> 0 THEN
    y := 1/a
  ELSE
    y := 1/(a+1);
  WRITELN('a ', a,  '    y ', y );
END.

Daljnji rad: Dodati provjeru za dijeljenje sa nulom (a <> 0 i a+1 <>0).

Ispis na ekranu:

Index