Pascal Лотерея | Игра

[AntiLoop]

Доброго всем дня! Хочу поделиться с Вами небольшой, но интересной игрой, написанной на Pascal.

program game2;
uses crt;
var a,b,c,y,x,d,h:longint;
begin
h:=445678;
d:=1000;
textbackground(2);
textcolor(7);
delay(1000);
gotoxy(1,1);
clrscr;
writeln('--------------------------------------------------------------------------------');
writeln('|                                    "Лотерея"                                 |');
writeln('|                                   Новая игра(1)                              |');
writeln('|                                 Закончить игру(2)                            |');
writeln('|                                        |                                     |');
writeln('|                                        |                                     |');
writeln('|                                        |                                     |');
writeln('|                                        |                                     |');
writeln('|                                        |                                     |');
writeln('|                                        |                                     |');
writeln('--------------------------------------------------------------------------------');
readln(a);
if (a=1) then clrscr;
if (a=2) then clrscr;
repeat
clrscr;
writeln('--------------------------------------------------------------------------------');
writeln('|                                    "Лотерея"                                 |');
writeln('|       Цель игры: Ставки на число.Если вы выйрали ваш выигрыш удваиваится!    |');
writeln('|                              Ваши деньги:', d); writeln('|');                     
writeln('|                           На какое число ставим? (0-10)?                     |');
writeln('|                             Сколько ставим? (0-1000000)                      |');
writeln('|                                        |                                     |');
writeln('|                                        |                                     |');
writeln('|                                        |                                     |');
writeln('|                                        |                                     |');
writeln('--------------------------------------------------------------------------------');
if (a=2) then clrscr;
randomize;
b:=random(10);
writeln('На что ставим (0-10!)');
readln(c);
writeln('Сколько ставим? (0-1000000)');
readln(x);
clrscr;
if (c=b) then writeln('Вы Выйграли! Ваши деньги: ', x*2+d) else writeln('Вы проиграли! Заданное число было: ',b); writeln( 'Ваши деньги: ', d-x); writeln('Сыграем ещё?(1 - ДА, 2 - НЕТ)'); 
if (c=b) then d:=x*2+d;
if (c<b) or (c>b) then d:=d-x;
readln(y);
if (y=h) then d:=d+100000;
if (y=2) then until (y=2);
end.

Спасибо за прочтение статьи! Удачного времяпровождения ​