Pascal Кости.

[AntiLoop]

Здравствуйте, уважаемые пользователи Pawno-Info! Делюсь с Вами игрой - Кости!

program kosti;
var 
a,b: integer;
c,d,y,k: string;
Begin
writeln('Игра <<Кости>>, успешно активирована.');
writeln('======================');
writeln('Игрок 1, время придумать игровой NickName');
readln(y);
writeln('Игрок ',y, ' Вы успешно зарегистрировались в системе');
writeln('======================');
writeln('Игрок 2, время придумать игровой NickName');
readln(k);
writeln('Игрок ',k, ' Вы успешно зарегистрировались в системе');
writeln('======================');

writeln(y,', Ваш ход, /dice - кинуть кости');
readln(c);
a:=random(12);
writeln('Выпало: ', a);
writeln('======================');
writeln(k,'. Ваш ход, /dice - кинуть кости');
readln(d);
b:=random(12);
writeln('Выпало: ', b);
writeln('======================');
if a>b then writeln('Игрок ', y,' одержал победу!');
if a<b then writeln('Игрок ',k, ' одержал победу!');
end.

По всем вопросам, или ошибками с компиляцией, просьба обращаться ко мне в личные сообщения на форуме.​