7.2.. Napisati program za odredjivanje y po formuli:

Listing programa:

PROGRAM p07211040;
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  a, y : INTEGER;    { cjelobrojne promjenljive } 

BEGIN
  Writeln('Paran/neparan');   { naslov }
  WRITE('Broj: ');      { ulazna promjenljiva }
  READLN( a );          { ulaz - ucitavanje vrijednosti }
    
  IF a MOD 2  = 0 THEN  { ako je a parno, tada }
    y := a + 3          { broj paran - izraz1 - suma }
  ELSE                  { inace }
    y := a - 2;         { broj neparan - izraz2 - razlika}
	
  Writeln('Broj = ', a, '  nova vrijednost = ', y);  { izlaz - ispis }
END.

Ispis na ekranu:

Index