begin end;
procedure proc2;
begin end;
begin
repeatClrScr;
WriteLn('Program 1 - 1');
WriteLn('Program 2 - 2');
WriteLn('Exit - 0');
Write('Select program: ');
ReadLn(n);
Case n of
1: proc1;
2: proc2;
end;
until n = 0;
end.