/* Programozas-modszertan, 2. felev, menukezeles */

uses crt;
var megy:boolean;
    x:char;

procedure menu1; forward;
procedure menu; forward;

procedure menu2;
begin
  clrscr;
  writeln('1.masik');
  writeln('2.vissza');
  x:=readkey;
  case x of
    '1':menu1;
    '2':menu;
  end;
end;

procedure menu1;
begin
  clrscr;
  writeln('1.vissza');
  writeln('2.meg masik');;
  writeln('3.vege');
  x:=readkey;
  case x of
    '1':menu;
    '2':menu2;
    '3':halt;
  end;
end;

procedure menu;
begin
  clrscr;
  writeln('1.masik');
  writeln('2.meg masik');
  writeln('3.vege');
  x:=readkey;
  case x of
    '1':menu1;
    '2':menu2;
    '3':halt;
  end;
end;

begin
  megy:=true;
  while megy do
    menu;
end.