9.1.. Vrijednosti a i b se učitvaju u programu. Procedura na ulazu ima definisane varijable a i b u zaglavlju. Vrijednosti a i b se mijenju u proceduri a zatim se ispisuju u glavnom programu.

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

Listing programa:

PROGRAM p09111016;
{Ulazna varijable definisanu u PROCEDURE HEADER-u}
USES
  WinCrt;
VAR
 a, b :Integer;
PROCEDURE Vrijednost (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