7.1.. Sa tastature upisati 0 ako ne treba nositi kišobaran a 1 ako treba nosti kišobran.

Opis programa: Varijabla za upis je v. Na osnovu vrijednosti v izvodi se grananje (za v=1 ispisuje se Kisobran).

 Listing programa:

PROGRAM P07111007;
USES
  WinCrt;
VAR
  v: INTEGER;
begin
  Writeln('Kisobran');
  Write('Vrijeme (0  1)');
  Readln(v);
  IF v = 1 THEN 
    Writeln('Ponesi kisobran');
END.

Ispis na ekranu:

Index