Program CARIBIAN;
var
  a, b, c, d, e, f: real;
begin
  writeln('-------------------------------------------------');
  writeln('-----Äîáðî ïîæàëîâàòü â áóõòó "Caribbean" -----');
  writeln('----Òû çàõîòåë âûïèòü? Ó íàñ áîëüøîé âûáîð ----');
  writeln('-----Âûáåðè, êàêîé òèï íàïèòêîâ òû õî÷åøü -----');
  writeln('-----------1.Ãàçèðîâêà 2.Êîôå/÷àé --------------');
  writeln('--------------------------------------------------');
  write(' Ââåäè íîìåð: ');
  read(a);
  writeln('--------------------------------------------------');
  if a = 1 then
  begin{ÏÅÐÂÛÉ ÖÈÊË, ÍÅ ÇÀÁÓÄÜ!!! }
    writeln('-- Äæýê: ׸ðò âîçüìè, çàõîòåë ãàçèêîâ? Âûáèðàé! --');
    writeln('-----------Ó íàñ åñòü: Pepsi è Cola -----------');
    writeln('-------------1.Peps ---2.Cola -------------');
    writeln('--------------------------------------------------');
    write(' Ââåäè íîìåð: ');
    read(b);
  end;
  writeln('--------------------------------------------------');
  if b = 1 then
  begin{ÂÒÎÐÎÉ ÖÈÊË, ÍÅ ÇÀÁÓÄÜ!!! }
    writeln('--------------------------------------------------');
    writeln('---------Äæýê: Ìîé Âðóíãåëü, ñ òåáÿ 20$ ---------');
    writeln('--------------------------------------------------');
    write(' Ââåäè ñóììó: ');
    read(c);
  end;
  if c >= 20 then
  begin{ÒÐÅÒÈÉ ÖÈÊË, ÍÅ ÇÀÁÓÄÜ!!! }
    writeln('--------------------------------------------------');
    d := c - 20;
    writeln('---------------Äåðæè ñâîé íàïèòîê ---------------');
    writeln('------------------Ñäà÷à: ', d, '$ --------------------');
    writeln('--------------------------------------------------')
  end
  else
  begin
    writeln('-- Äæýê: ׸ðò âîçüìè, çàõîòåë âçáîäðèòüñÿ? Âûáèðàé! --');
    writeln('-----------Ó íàñ åñòü: Êîôå è ×àé -----------');
    writeln('-------------1.Êîôå ---2.×àé -------------');
    writeln('--------------------------------------------------');
    write(' Ââåäè íîìåð: ');
    read(e);
    writeln('--------------------------------------------------');
  end;
  if e = 1 then
  begin{ÂÒÎÐÎÉ ÖÈÊË, ÍÅ ÇÀÁÓÄÜ!!! }
    writeln('--------------------------------------------------');
    writeln('---------Äæýê: Ìîé Âðóíãåëü, ñ òåáÿ 10$ ---------');
    writeln('--------------------------------------------------');
    write(' Ââåäè ñóììó: ');
    read(f);
  end;
  if f >= 10 then
  begin{ÒÐÅÒÈÉ ÖÈÊË, ÍÅ ÇÀÁÓÄÜ!!! }
    writeln('--------------------------------------------------');
    d := c - 10;
    writeln('---------------Äåðæè ñâîé íàïèòîê ---------------');
    writeln('------------------Ñäà÷à: ', d, '$ --------------------');
    writeln('--------------------------------------------------');
  end
  else
  begin
    writeln('--------------------------------------------------');
    writeln('--------Äåíüãè íà áî÷êó! Òåáå íå õâàòàåò! --------');
  end
end.