Cokolada

program cokolady;
{$APPTYPE CONSOLE}
uses SysUtils;
var c:real;
    d:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  c:=200;
  d:=0;
  repeat
    c:=c/2;
    writeln('Mnam! Zjedol som: ',c:1:2);
    d:=d+1;
  until c<=1;
  writeln('Uz mam iba ',c:1:2,'g cokolady :(');
  writeln('Jedenie mi trvalo ',d,' dni');
  readln;
end.