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: Varijablama a i b se u potprogramu pridružuju nove vrijednsti a:=5; b:= 6; i one ostaju i izvan potprogram to se vidi po ispisu.

Listing programa:

PROGRAM p09111004;
{pro04 Ulazna varijable}
VAR
 a, b :Integer;
PROCEDURE Vrijednost;
BEGIN
  Writeln('Potprogram ulaza');
  Writeln('a ', a, '   b ',b);
  a:=5; 
  b:= 6;
  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