Pascal Рулетка

[STAFFI]

Простенькая рулетка)​

Автор: Я

program asd;
var 
a,b: integer;
c,d,x,z: string;
Begin
writeln('Рулетка 2.0');
writeln('======================');
writeln('Игрок 1, придумайте Nick');
readln(x);
writeln('Игрок ',x, ' успешно зарегистрирован в системе');
writeln('======================');
writeln('Игрок 2, придумайте Nick');
readln(z);
writeln('Игрок ',z, ' успешно зарегистрирован в системе');
writeln('======================');

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