uses crt;
var k,f:integer;
begin
clrscr;
randomize;
k:=15;
repeat
writeln('ostalos',' ',k,'spitchek');
repeat
writeln('vvedite',' ','kol-vo',' ','spitchek');
readln(f);
until((f>0) and (f<4) and (f<=k));
k:=k-f;
if (k=0) then
begin
write('you win');
readln;
exit;
end;
if (k mod 4=0) then
begin
f:=random(2)+1;
writeln('Ya kladu',' ',f,' ','spitchek');
k:=k-f;
end
else
begin
writeln('Ya kladu',' ',k mod 4,' ','spitchek');
k:=k-(k mod 4);
if (k=0) then
begin
write('you lose');
readln;
exit;
end;
end;
until(k=0);
end.