program Automat;

var Tlacitko: integer;
    voda: integer;

begin
  voda := 3;
  while (voda > 0) do
  begin
    writeln('Poet zbvajcch npoj: ', voda);
    writeln('Dobr den, vyberte si npoj.');
    writeln('1: Kva.');
    writeln('2: aj.');
    writeln('3: Hork okolda.');

    readln(Tlacitko);

    case Tlacitko of
      1:
        begin
          writeln('Kva je hotov.');
          writeln('Dobrou chu.');
          voda := voda - 1;
          writeln('Pokraujte stisknutm klvesy Enter.');
          readln();
          writeln();
        end;
      2:
        begin
          writeln('aj je hotov.');
          writeln('Dobrou chu.');
          voda := voda - 1;
          writeln('Pokraujte stisknutm klvesy Enter.');
          readln();
          writeln();
        end;
      3:
        begin
          writeln('okolda je hotov.');
          writeln('Dobrou chu.');
          voda := voda - 1;
          writeln('Pokraujte stisknutm klvesy Enter.');
          readln();
          writeln();
        end;
      else
        writeln('Pro vdej npoje stisknte 1-3.');
        writeln('Pokraujte stisknutm klvesy Enter.');
        readln();
        writeln();
    end;
  end;

  writeln();
  writeln('Voda dola.');
  writeln('Pokraujte stisknutm klvesy Enter.');
  readln();
end.