Напишите игру «рулетка». в текстовом режиме запускается генератор случайных чисел в диапазоне от 0 до 9. если

Question

Информатика: Напишите игру «рулетка». в текстовом режиме запускается генератор случайных чисел в диапазоне от 0 до 9. если 4 или 5 — игрок получает 50 очков, если 3 или 6 — у игрока вычитаются 50 очков, если 2 или 7 — игрока, набранные прежде, умножаются на два, если выпадает 1 или 8 — игрок становится банкротом (звуковой сигнал), и если выпадает 0 или 9 — игрок получает 0 . надо написать команду условий( для паскаля)

daeinam095 · Answer

uses crt;var x,s:integer;c:char; b:boolean;beginwhile b=false do beginx:=random(10);if (x=4) or (x=5) then s:=s+50;if (x=3) or (x=6) then s:=s-50;if (x=2) or (x=7) then s:=s*2;if (x=1) or (x=8) then sound(1000);writeln( You points - ,s, ,x);if (x=1) or (x=8) or (s 0) or (c= No ) then b:=true;if b=false then beginwriteln( Continue? Enter No to exit. );readln(c);end;end;delay(10000);nosound;end....