USES CRT,Graph;VAR Device,Mode:Integer; i,x,y,s:Integer;BEGINCLRSCR; Device:=0; InitGraph(Device,Mode,''); s:=100; x:=320; y:=240; for i:=1 to 9 do begin SetLineStyle(0,0,ThickWidth); Circle(x,y,s); Delay(200); SetColor(Black); Circle(x,y,s); s:=s-10; SetColor(White); end; for i:=1 to 9 do begin SetLineStyle(0,0,ThickWidth); Circle(x,y,s); Delay(200); SetColor(Black); Circle(x,y,s); s:=s+10; SetColor(White); end; Circle(x,y,s);Readln;END.
points = 0
points_per_turn = 100
lives = 3
rooms = [("В комнате дракон :(", -1), ("В комнате живая вода :)", 1), ("Комната пуста :|", 0)]
n = len(rooms)
while lives > 0:
print("Жизней: ", lives, ", очков: ", points, sep = "")
shuffle(rooms)
print("Выбирайте любую из дверей, введите число от 1 до", n, end=" ")
choice = int(input()) - 1
points += points_per_turn
print(rooms[choice][0])
lives += rooms[choice][1]
print("Коварный дракон лишил вас последней жизни, но тем не менее у вас осталось", points, "очков.")