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

Если выпадают 4 или 5 — игрок получает 50 очков, если выпадают 3 или 6 — у игрока вычитаются 50 очков,

если выпадают 2 или 7 — баллы игрока, набранные прежде, умножаются на два,

если выпадает 1 или 8 — игрок становится банкротом (звуковой сигнал),

и если выпадает 0 или 9 — игрок получает 0 баллов.

надо написать команду условий( для паскаля)

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.