program LABEL;
uses crt;
label start; { definiowanie labela w nagłówku }
var a:byte;
begin
     start: { definiowanie labela w kodzie }
     WriteLn('Program');
     Delay(300);
     WriteLn('**Menu**');
     Delay(300);
     WriteLn('1 - Powrót');
     ReadLn(a);
     case a of
          1: begin
              goto start; { powrót do labela 'start' }
              clrscr;
          end;
     end;
     readkey;
end.