9.1.. Vrijednosti a i b se učitvaju u programu. Procedura na ulazu ima definisane varijable a i b u zaglavlju sa VAR. Vrijednosti a i b se mijenja u proceduri i imaju novu vrijednost pri izlaz iz glavnof programa. Ulaz je a:=1; b:= 3; a potprogramu a se uvećava a b umanjuje za 1.

Opis programa: Varijable a i b su definisane na ulazu u potprogram PROCEDURE Vrijednost (VAR a, b:Integer);. Ovo predstavljaju 2 nove varijable. Omogućen je ulaz i izlaz vrijednosti varijabli što je vidljivo pri ispisu programa.

Listing programa:

PROGRAM p09111017;
{Ulazna varijable definisanu u PROCEDURE HEADER-u}
USES
  WinCrt;
VAR
 a, b :Integer;
PROCEDURE Vrijednost (VAR a, b:Integer);
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 (a, b);
  Writeln('Poslije povratka iz potprograma');
  Writeln('a ', a, '   b ',b);
END.

Izvođenje programa:

Index