Program P;

uses
  U1 in 'U1.pas',
  U2 in 'U2.pas';

begin
     U1.Proc1;
     U2.Proc2;
     ReadLn;
end.