Type pharmacy=record
   name: string[64];
   dose: integer;
   pak: string[32];
   firm: string[50];
   price: integer;
end;


function menu(): integer;
var
 temp: string[10];
begin
  writeln('----------');
  writeln('record lab');
  writeln('select one:');
  writeln('1. add record');
  writeln('2. remove record');
  writeln('3. show records');
  writeln('4. import records');
  readln(temp);
  case temp[1] of
    '1': menu := 1;
    '2': menu := 2;
    '3': menu := 3;
    '4': menu := 4
    else menu := 0;
  end;
end;

function error():integer;
begin
  writeln('unknown option');
  error := 0;
end;

function inmort():integer;
begin
  writeln('unknown option');
  inmort:= 0;
end;

function show():integer;
begin
  writeln('unknown option');
  show:= 0;
end;

function remove():integer;
begin
  writeln('unknown option');
  remove := 0;
end;

function add():integer;
begin
  writeln('unknown option');
  add:= 0;
end;

begin
while(true) do
begin
  var branch := menu();
  var records =
  case branch of
    0: error();
    1: add();
    2: remove();
    3: show();
    4: inmort();
  end;
  write(branch);
  writeln('Press any key');
  readln();
end
end.