7.2.. Učitati x. Ako je x manje ili jednako 0, tada je y=5+x, inače je y=x-3.

Opis rješenja:

Listing programa:

PROGRAM P07211096;
VAR                       { deklarisanje promjenljivih }
  x, y : INTEGER;         { cjelobrojne promjenljive }
BEGIN
  WRITE('Broj  ');        { ulazne promjenljive }
  READLN( x );            { ulaz - ucitavanje promjenljive }
 
  IF x <= 0 THEN          { ako je x vece od 0 }
      y := 5 + x          { izraz1 }
  ELSE                    { inace }
      y := x - 3;         { izraz2 }

  Writeln(' x ', x, ' y ', y );
  READLN;
END.

Ispis na ekranu:

Index