Napisati program sa procedurom za ispis vrijednosti brojeva a i b, pridružuje novu vrijednosti u potprogramu a zatim ispisuje u glavnom programu novu vrijednost iz potprograma.

Opis programa: Varijable a i b se u potprogramu uvačavaju za 1 (a:= a + 1; b:= b + 1;). nove vrijednsti su iste i izvan potprogram to se vidi po ispisu vrijednosti u potprogramu.

Listing programa:

PROGRAM p09111015;
{pro04 Ulazna varijable}
VAR
 a, b :Integer;
PROCEDURE Vrijednost;
BEGIN
  Writeln('Potprogram ulaza');
  Writeln('a ', a, '   b ',b);
  a:= a + 1; 
  b:= b + 1; 
  Writeln('Potprogram poslije promjene');
  Writeln('a ', a, '   b ',b);
END;

BEGIN       {MAIN}
  a:=1; 
  b:= 3;
  Writeln('Program');
  Writeln('a ', a, '   b ',b);
  Vrijednost;
  Writeln('Poslije povratka iz potprograma');
  Writeln('a ', a, '   b ',b);
  READLN;
END.

Ispis na ekranu:

Index