program coklat

program coklat;
uses crt;
var
x,y,n,k : longint;
begin clrscr;
write ('==jumlah coklat yang akan dibagikan :');
readln (x);

k := 0;
n := 1;
for y := 1 to (n*10000) do begin

k := k+1;
if x>= k then begin
n := n+1
end;
end;
writeln (' ');
writeln ('bebek pertama yang tidak mendapat coklat ');
writeln ('bebek dengan nomor urut :',n);

readln;
end.