program ProcedureProgram;
   procedure proc1 (i:integer);
   var
      temp:integer;
   begin
      temp := 5;
      writeln('proc1: ',i);
      writeln('temp: ',5);
   end;
begin
   writeln('Hello, World!');
   proc1(101);
ENd.