7.2.. Napisati program za odredjivanje y po formuli:

PROGRAM RAZ3_12;
USES
  WinCrt;
VAR                       { deklarisanje promjenljivih }
  a : INTEGER;            { cjelobrojna promjenljiva }
  y : REAL;               { realna promjenljiva }
BEGIN
  Writeln('Provjera paranosti - Paran/neparan');   { naslov }
  WRITE('Broj: ');
  READLN( a );                      { ulaz - ucitavanje vrijednosti }
  IF a MOD 2 <> 0 THEN              { ako je broj neparan, tada }
    y := 1/a                        { broj neparan - izraz1 }
  ELSE                              { inace }
    y := 1/(a+1);                   { broj paran  - izraz2 }
  WRITELN('a = ', a,  '    y = ', y );  { ispis }
END.

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

Ispis na ekranu:

Index