Ожидалась программа, а встречен модуль - PascalABC.NET

program Poker;
uses crt;
var player1, player2,player3,player4,player5:string; {Имена игроков}
c:char;
poker,stm,stb,para,para2,troika,kare,fh,visk:string;{комбинации}
p1k1,p1k2,p1k3,p1k4,p1k5:integer;{Карты игрока 1}
p2k1,p2k2,p2k3,p2k4,p2k5:integer;{Карты игрока 2}
p3k1,p3k2,p3k3,p3k4,p3k5:integer;{Карты игрока 3}
p4k1,p4k2,p4k3,p4k4,p4k5:integer;{Карты игрока 4}
p5k1,p5k2,p5k3,p5k4,p5k5:integer;{Карты игрока 5}
x{переменная количества игроков}:integer;
  begin
poker:=' Покер';
stm:=' Стрит малый';
stb:=' Стрит большой';
para:=' Пара';
para2:=' Две пары';
troika:=' Сет';
kare:=' Каре';
fh:=' ФулХаус';
visk:=' Высшая сумма кубиков';
if keypressed then c:=readkey;
//Рандомирование карт игроков
p1k1:=random(2,6);p1k2:=random(2,6);p1k3:=random(2,6);p1k4:=random(2,6);p1k5:=random(2,6);
p2k1:=random(2,6);p2k2:=random(2,6);p2k3:=random(2,6);p2k4:=random(2,6);p2k5:=random(2,6);
p3k1:=random(2,6);p3k2:=random(2,6);p3k3:=random(2,6);p3k4:=random(2,6);p3k5:=random(2,6);
p4k1:=random(2,6);p4k2:=random(2,6);p4k3:=random(2,6);p4k4:=random(2,6);p4k5:=random(2,6);
p5k1:=random(2,6);p5k2:=random(2,6);p5k3:=random(2,6);p5k4:=random(2,6);p5k5:=random(2,6);
//Проверка комбинаций
{p1k1:=2;p1k2:=2;p1k3:=1;p1k4:=2;p1k5:=2;
p2k1:=1;p2k2:=1;p2k3:=3;p2k4:=2;p2k5:=4;
p3k1:=5;p3k2:=5;p3k3:=3;p3k4:=1;p3k5:=5;
p4k1:=4;p4k2:=6;p4k3:=2;p4k4:=2;p4k5:=5;
p5k1:=2;p5k2:=4;p5k3:=5;p5k4:=6;p5k5:=3;}
//Проверка окончена
//Выбор количества игроков
repeat
write('Введите количество игроков от 2 до 5 - ');
readln(x);
if (x<2) or (x>5) then writeln('Количество игроков должно быть не меньше двух и не больше пяти. Повторите ввод');
until (x=2) or (x=3) or (x=4) or (x=5) or (x=18081996); 
// При количество игроков 2
if x=18081996 then begin
 
p1k1:=1;p1k2:=1;p1k3:=1;p1k4:=1;p1k5:=1;
p2k1:=2;p2k2:=2;p2k3:=2;p2k4:=2;p2k5:=2;
p3k1:=3;p3k2:=3;p3k3:=3;p3k4:=3;p3k5:=3;
p4k1:=4;p4k2:=4;p4k3:=4;p4k4:=4;p4k5:=4;
p5k1:=5;p5k2:=5;p5k3:=5;p5k4:=5;p5k5:=5;
repeat
readln(x);
if (x<2) or (x>5) then writeln('Количество игроков должно быть не меньше двух и не больше пяти. Повторите ввод');
 
until (x=2) or (x=3) or (x=4) or (x=5)
end;
if x=2 then begin
Writeln('Введите имена игроков: ');
write('Первый игрок: ');
readln(player1);
write('Второй игрок: ');
readln(player2);
writeln;
writeln;
writeln('Выпавшие кости у игрока ', player1,' :',p1k1:3,p1k2:3,p1k3:3,p1k4:3,p1k5:3);
writeln('Выпавшие кости у игрока ', player2,' :',p2k1:3,p2k2:3,p2k3:3,p2k4:3,p2k5:3);
writeln;
writeln;
Writeln('Комбинации у игрока ',player1,':');
if (p1k1) or (p1k1) or (p1k2) or (p1k3) or (p1k4) or (p1k5) = (p1k1) or (p1k1) or (p1k2) or (p1k3) or (p1k4) or (p1k5) then writeln('У игрока ',player1,para);
if (p1k1=p1k2) and (p1k3 = p1k4) or (p1k1=p1k2) and (p1k3=p1k5) or (p1k1=p1k3) and (p1k2=p1k4) or (p1k1=p1k3) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k4=p1k5) or (p1k1=p1k4) and (p1k2=p1k3) or (p1k1=p1k4) and (p1k2=p1k5) OR (p1k1=p1k4) and (p1k3=p1k5) or (p1k1=p1k5) and (p1k2=p1k3) or (p1k1=p1k5) and (p1k2=p1k4) or (p1k1=p1k5) and (p1k3=p1k4) then writeln('У игрока ',player1,para2);
if (p1k1=p1k2) and (p1k2=p1k3) or (p1k1=p1k2) and (p1k2=p1k4) or (p1k1=p1k2) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k3=p1k4) or (p1k1=p1k3) and (p1k3=p1k5) or (p1k1=p1k4) and (p1k4=p1k5) or (p1k2=p1k3) and (p1k3=p1k4) or (p1k2=p1k3) and (p1k3=p1k5) or (p1k2=p1k4) and (p1k4=p1k5) or (p1k3=p1k4) and (p1k4=p1k5) then writeln ('у игрока ',player1,troika);
if (p1k5<6) and (p1k4<6) and (p1k3<6) and (p1k2<6) and (p1k1<6) and (p1k1<>p1k2) and (p1k1<>p1k3) and (p1k1<>p1k4) and (p1k1<>p1k5) and (p1k2<>p1k3)and (p1k2<>p1k4) and (p1k2<>p1k5) and (p1k3<>p1k5) and (p1k3<>p1k4)and (p1k4<>p1k5) then writeln ('у игрока ',player1,stm);
if (p1k1=p1k2) and (p1k2=p1k3) and (p1k4=p1k5) or (p1k1=p1k2) and (p1k2=p1k4) and (p1k3=p1k5) or (p1k1=p1k2) and (p1k2=p1k5) and (p1k4=p1k3) or (p1k1=p1k4) and (p1k4=p1k5) and (p1k2=p1k3) or (p1k1=p1k3) and (p1k3=p1k4) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k3=p1k5) and (p1k2=p1k4) or (p1k2=p1k3) and (p1k3=p1k4) and (p1k1=p1k5) or (p1k2=p1k3) and (p1k3=p1k5) and (p1k1=p1k4) or (p1k2=p1k4) and (p1k4=p1k5) and (p1k1=p1k3) or (p1k3=p1k4) and (p1k4=p1k5) and (p1k1=p1k2) then writeln('у игрока ',player1,fh);
if (p1k5>1) and (p1k4>1) and (p1k3>1) and (p1k2>1) and (p1k1>1) and (p1k1<>p1k2) and (p1k1<>p1k3) and (p1k1<>p1k4) and (p1k1<>p1k5) and (p1k2<>p1k3)and (p1k2<>p1k4) and (p1k2<>p1k5) and (p1k3<>p1k5) and (p1k3<>p1k4) and (p1k4<>p1k5) then writeln ('у игрока ',player1,stb);
if (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k4) or (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k5) or (p1k1 = p1k2) and (p1k2 = p1k4) and (p1k4 = p1k5) or (p1k1 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) or (p1k2 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) then writeln ('у игрока ',player1,kare);
if (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) then writeln('у игрока ',player1,poker);
writeln;
Writeln('Комбинации у игрока ',player2,':');
if (p2k1) or (p2k1) or (p2k2) or (p2k3) or (p2k4) or (p2k5) = (p2k1) or (p2k1) or (p2k2) or (p2k3) or (p2k4) or (p2k5) then writeln('У игрока ',player2,para);
if (p2k1=p2k2) and (p2k3 = p2k4) or (p2k1=p2k2) and (p2k3=p2k5) or (p2k1=p2k3) and (p2k2=p2k4) or (p2k1=p2k3) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k4=p2k5) or (p2k1=p2k4) and (p2k2=p2k3) or (p2k1=p2k4) and (p2k2=p2k5) OR (p2k1=p2k4) and (p2k3=p2k5) or (p2k1=p2k5) and (p2k2=p2k3) or (p2k1=p2k5) and (p2k2=p2k4) or (p2k1=p2k5) and (p2k3=p2k4) then writeln('У игрока ',player2,para2);
if (p2k1=p2k2) and (p2k2=p2k3) or (p2k1=p2k2) and (p2k2=p2k4) or (p2k1=p2k2) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k3=p2k4) or (p2k1=p2k3) and (p2k3=p2k5) or (p2k1=p2k4) and (p2k4=p2k5) or (p2k2=p2k3) and (p2k3=p2k4) or (p2k2=p2k3) and (p2k3=p2k5) or (p2k2=p2k4) and (p2k4=p2k5) or (p2k3=p2k4) and (p2k4=p2k5) then writeln ('у игрока ',player2,troika);
if (p2k5<6) and (p2k4<6) and (p2k3<6) and (p2k2<6) and (p2k1<6) and (p2k1<>p2k2) and (p2k1<>p2k3) and (p2k1<>p2k4) and (p2k1<>p2k5) and (p2k2<>p2k3)and (p2k2<>p2k4) and (p2k2<>p2k5) and (p2k3<>p2k5) and (p2k3<>p2k4)and (p2k4<>p2k5) then writeln ('у игрока ',player2,stm);
if (p2k1=p2k2) and (p2k2=p2k3) and (p2k4=p2k5) or (p2k1=p2k2) and (p2k2=p2k4) and (p2k3=p2k5) or (p2k1=p2k2) and (p2k2=p2k5) and (p2k4=p2k3) or (p2k1=p2k4) and (p2k4=p2k5) and (p2k2=p2k3) or (p2k1=p2k3) and (p2k3=p2k4) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k3=p2k5) and (p2k2=p2k4) or (p2k2=p2k3) and (p2k3=p2k4) and (p2k1=p2k5) or (p2k2=p2k3) and (p2k3=p2k5) and (p2k1=p2k4) or (p2k2=p2k4) and (p2k4=p2k5) and (p2k1=p2k3) or (p2k3=p2k4) and (p2k4=p2k5) and (p2k1=p2k2) then writeln('у игрока ',player2,fh);
if (p2k5>1) and (p2k4>1) and (p2k3>1) and (p2k2>1) and (p2k1>1) and (p2k1<>p2k2) and (p2k1<>p2k3) and (p2k1<>p2k4) and (p2k1<>p2k5) and (p2k2<>p2k3)and (p2k2<>p2k4) and (p2k2<>p2k5) and (p2k3<>p2k5) and (p2k3<>p2k4) and (p2k4<>p2k5) then writeln ('у игрока ',player2,stb);
if (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k4) or (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k5) or (p2k1 = p2k2) and (p2k2 = p2k4) and (p2k4 = p2k5) or (p2k1 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) or (p2k2 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) then writeln ('у игрока ',player2,kare);
if (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) then writeln('у игрока ',player2,poker);
end;
// При количество игроков 3
if x=3 then begin
Writeln('Введите имена игроков: ');
write('Первый игрок: ');
readln(player1);
write('Второй игрок: ');
readln(player2);
write('Третий игрок: ');
readln(player3);
writeln;
writeln;
writeln('Выпавшие кости у игрока ', player1,' :',p1k1:3,p1k2:3,p1k3:3,p1k4:3,p1k5:3);
writeln('Выпавшие кости у игрока ', player2,' :',p2k1:3,p2k2:3,p2k3:3,p2k4:3,p2k5:3);
writeln('Выпавшие кости у игрока ', player3,' :',p3k1:3,p3k2:3,p3k3:3,p3k4:3,p3k5:3);
writeln;
writeln;
Writeln('Комбинации у игрока ',player1,':');
if (p1k1) or (p1k1) or (p1k2) or (p1k3) or (p1k4) or (p1k5) = (p1k1) or (p1k1) or (p1k2) or (p1k3) or (p1k4) or (p1k5) then writeln('У игрока ',player1,para);
if (p1k1=p1k2) and (p1k3 = p1k4) or (p1k1=p1k2) and (p1k3=p1k5) or (p1k1=p1k3) and (p1k2=p1k4) or (p1k1=p1k3) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k4=p1k5) or (p1k1=p1k4) and (p1k2=p1k3) or (p1k1=p1k4) and (p1k2=p1k5) OR (p1k1=p1k4) and (p1k3=p1k5) or (p1k1=p1k5) and (p1k2=p1k3) or (p1k1=p1k5) and (p1k2=p1k4) or (p1k1=p1k5) and (p1k3=p1k4) then writeln('У игрока ',player1,para2);
if (p1k1=p1k2) and (p1k2=p1k3) or (p1k1=p1k2) and (p1k2=p1k4) or (p1k1=p1k2) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k3=p1k4) or (p1k1=p1k3) and (p1k3=p1k5) or (p1k1=p1k4) and (p1k4=p1k5) or (p1k2=p1k3) and (p1k3=p1k4) or (p1k2=p1k3) and (p1k3=p1k5) or (p1k2=p1k4) and (p1k4=p1k5) or (p1k3=p1k4) and (p1k4=p1k5) then writeln ('у игрока ',player1,troika);
if (p1k5<6) and (p1k4<6) and (p1k3<6) and (p1k2<6) and (p1k1<6) and (p1k1<>p1k2) and (p1k1<>p1k3) and (p1k1<>p1k4) and (p1k1<>p1k5) and (p1k2<>p1k3)and (p1k2<>p1k4) and (p1k2<>p1k5) and (p1k3<>p1k5) and (p1k3<>p1k4)and (p1k4<>p1k5) then writeln ('у игрока ',player1,stm);
if (p1k1=p1k2) and (p1k2=p1k3) and (p1k4=p1k5) or (p1k1=p1k2) and (p1k2=p1k4) and (p1k3=p1k5) or (p1k1=p1k2) and (p1k2=p1k5) and (p1k4=p1k3) or (p1k1=p1k4) and (p1k4=p1k5) and (p1k2=p1k3) or (p1k1=p1k3) and (p1k3=p1k4) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k3=p1k5) and (p1k2=p1k4) or (p1k2=p1k3) and (p1k3=p1k4) and (p1k1=p1k5) or (p1k2=p1k3) and (p1k3=p1k5) and (p1k1=p1k4) or (p1k2=p1k4) and (p1k4=p1k5) and (p1k1=p1k3) or (p1k3=p1k4) and (p1k4=p1k5) and (p1k1=p1k2) then writeln('у игрока ',player1,fh);
if (p1k5>1) and (p1k4>1) and (p1k3>1) and (p1k2>1) and (p1k1>1) and (p1k1<>p1k2) and (p1k1<>p1k3) and (p1k1<>p1k4) and (p1k1<>p1k5) and (p1k2<>p1k3)and (p1k2<>p1k4) and (p1k2<>p1k5) and (p1k3<>p1k5) and (p1k3<>p1k4) and (p1k4<>p1k5) then writeln ('у игрока ',player1,stb);
if (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k4) or (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k5) or (p1k1 = p1k2) and (p1k2 = p1k4) and (p1k4 = p1k5) or (p1k1 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) or (p1k2 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) then writeln ('у игрока ',player1,kare);
if (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) then writeln('у игрока ',player1,poker);
writeln;
Writeln('Комбинации у игрока ',player2,':');
if (p2k1) or (p2k1) or (p2k2) or (p2k3) or (p2k4) or (p2k5) = (p2k1) or (p2k1) or (p2k2) or (p2k3) or (p2k4) or (p2k5) then writeln('У игрока ',player2,para);
if (p2k1=p2k2) and (p2k3 = p2k4) or (p2k1=p2k2) and (p2k3=p2k5) or (p2k1=p2k3) and (p2k2=p2k4) or (p2k1=p2k3) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k4=p2k5) or (p2k1=p2k4) and (p2k2=p2k3) or (p2k1=p2k4) and (p2k2=p2k5) OR (p2k1=p2k4) and (p2k3=p2k5) or (p2k1=p2k5) and (p2k2=p2k3) or (p2k1=p2k5) and (p2k2=p2k4) or (p2k1=p2k5) and (p2k3=p2k4) then writeln('У игрока ',player2,para2);
if (p2k1=p2k2) and (p2k2=p2k3) or (p2k1=p2k2) and (p2k2=p2k4) or (p2k1=p2k2) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k3=p2k4) or (p2k1=p2k3) and (p2k3=p2k5) or (p2k1=p2k4) and (p2k4=p2k5) or (p2k2=p2k3) and (p2k3=p2k4) or (p2k2=p2k3) and (p2k3=p2k5) or (p2k2=p2k4) and (p2k4=p2k5) or (p2k3=p2k4) and (p2k4=p2k5) then writeln ('у игрока ',player2,troika);
if (p2k5<6) and (p2k4<6) and (p2k3<6) and (p2k2<6) and (p2k1<6) and (p2k1<>p2k2) and (p2k1<>p2k3) and (p2k1<>p2k4) and (p2k1<>p2k5) and (p2k2<>p2k3)and (p2k2<>p2k4) and (p2k2<>p2k5) and (p2k3<>p2k5) and (p2k3<>p2k4)and (p2k4<>p2k5) then writeln ('у игрока ',player2,stm);
if (p2k1=p2k2) and (p2k2=p2k3) and (p2k4=p2k5) or (p2k1=p2k2) and (p2k2=p2k4) and (p2k3=p2k5) or (p2k1=p2k2) and (p2k2=p2k5) and (p2k4=p2k3) or (p2k1=p2k4) and (p2k4=p2k5) and (p2k2=p2k3) or (p2k1=p2k3) and (p2k3=p2k4) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k3=p2k5) and (p2k2=p2k4) or (p2k2=p2k3) and (p2k3=p2k4) and (p2k1=p2k5) or (p2k2=p2k3) and (p2k3=p2k5) and (p2k1=p2k4) or (p2k2=p2k4) and (p2k4=p2k5) and (p2k1=p2k3) or (p2k3=p2k4) and (p2k4=p2k5) and (p2k1=p2k2) then writeln('у игрока ',player2,fh);
if (p2k5>1) and (p2k4>1) and (p2k3>1) and (p2k2>1) and (p2k1>1) and (p2k1<>p2k2) and (p2k1<>p2k3) and (p2k1<>p2k4) and (p2k1<>p2k5) and (p2k2<>p2k3)and (p2k2<>p2k4) and (p2k2<>p2k5) and (p2k3<>p2k5) and (p2k3<>p2k4) and (p2k4<>p2k5) then writeln ('у игрока ',player2,stb);
if (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k4) or (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k5) or (p2k1 = p2k2) and (p2k2 = p2k4) and (p2k4 = p2k5) or (p2k1 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) or (p2k2 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) then writeln ('у игрока ',player2,kare);
if (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) then writeln('у игрока ',player2,poker);
writeln;
Writeln('Комбинации у игрока ',player3,':');
if (p3k1) or (p3k1) or (p3k2) or (p3k3) or (p3k4) or (p3k5) = (p3k1) or (p3k1) or (p3k2) or (p3k3) or (p3k4) or (p3k5) then writeln('У игрока ',player3,para);
if (p3k1=p3k2) and (p3k3 = p3k4) or (p3k1=p3k2) and (p3k3=p3k5) or (p3k1=p3k3) and (p3k2=p3k4) or (p3k1=p3k3) and (p3k2=p3k5) or (p3k1=p3k3) and (p3k4=p3k5) or (p3k1=p3k4) and (p3k2=p3k3) or (p3k1=p3k4) and (p3k2=p3k5) OR (p3k1=p3k4) and (p3k3=p3k5) or (p3k1=p3k5) and (p3k2=p3k3) or (p3k1=p3k5) and (p3k2=p3k4) or (p3k1=p3k5) and (p3k3=p3k4) then writeln('У игрока ',player3,para2);
if (p3k1=p3k2) and (p3k2=p3k3) or (p3k1=p3k2) and (p3k2=p3k4) or (p3k1=p3k2) and (p3k2=p3k5) or (p3k1=p3k3) and (p3k3=p3k4) or (p3k1=p3k3) and (p3k3=p3k5) or (p3k1=p3k4) and (p3k4=p3k5) or (p3k2=p3k3) and (p3k3=p3k4) or (p3k2=p3k3) and (p3k3=p3k5) or (p3k2=p3k4) and (p3k4=p3k5) or (p3k3=p3k4) and (p3k4=p3k5) then writeln ('у игрока ',player3,troika);
if (p3k5<6) and (p3k4<6) and (p3k3<6) and (p3k2<6) and (p3k1<6) and (p3k1<>p3k2) and (p3k1<>p3k3) and (p3k1<>p3k4) and (p3k1<>p3k5) and (p3k2<>p3k3)and (p3k2<>p3k4) and (p3k2<>p3k5) and (p3k3<>p3k5) and (p3k3<>p3k4)and (p3k4<>p3k5) then writeln ('у игрока ',player3,stm);
if (p3k1=p3k2) and (p3k2=p3k3) and (p3k4=p3k5) or (p3k1=p3k2) and (p3k2=p3k4) and (p3k3=p3k5) or (p3k1=p3k2) and (p3k2=p3k5) and (p3k4=p3k3) or (p3k1=p3k4) and (p3k4=p3k5) and (p3k2=p3k3) or (p3k1=p3k3) and (p3k3=p3k4) and (p3k2=p3k5) or (p3k1=p3k3) and (p3k3=p3k5) and (p3k2=p3k4) or (p3k2=p3k3) and (p3k3=p3k4) and (p3k1=p3k5) or (p3k2=p3k3) and (p3k3=p3k5) and (p3k1=p3k4) or (p3k2=p3k4) and (p3k4=p3k5) and (p3k1=p3k3) or (p3k3=p3k4) and (p3k4=p3k5) and (p3k1=p3k2) then writeln('у игрока ',player3,fh);
if (p3k5>1) and (p3k4>1) and (p3k3>1) and (p3k2>1) and (p3k1>1) and (p3k1<>p3k2) and (p3k1<>p3k3) and (p3k1<>p3k4) and (p3k1<>p3k5) and (p3k2<>p3k3)and (p3k2<>p3k4) and (p3k2<>p3k5) and (p3k3<>p3k5) and (p3k3<>p3k4) and (p3k4<>p3k5) then writeln ('у игрока ',player3,stb);
if (p3k1 = p3k2) and (p3k2 = p3k3) and (p3k3 = p3k4) or (p3k1 = p3k2) and (p3k2 = p3k3) and (p3k3 = p3k5) or (p3k1 = p3k2) and (p3k2 = p3k4) and (p3k4 = p3k5) or (p3k1 = p3k3) and (p3k3 = p3k4) and (p3k4 = p3k5) or (p3k2 = p3k3) and (p3k3 = p3k4) and (p3k4 = p3k5) then writeln ('у игрока ',player3,kare);
if (p3k1 = p3k2) and (p3k2 = p3k3) and (p3k3 = p3k4) and (p3k4 = p3k5) then writeln('у игрока ',player3,poker);
end;
// При количестве игроков 4
if x=4 then begin
Writeln('Введите имена игроков: ');
write('Первый игрок: ');
readln(player1);
write('Второй игрок: ');
readln(player2);
write('Третий игрок: ');
readln(player3);
write('Четвертый игрок: ');
readln(player4);
writeln;
writeln;
writeln('Выпавшие кости у игрока ', player1,' :',p1k1:3,p1k2:3,p1k3:3,p1k4:3,p1k5:3);
writeln('Выпавшие кости у игрока ', player2,' :',p2k1:3,p2k2:3,p2k3:3,p2k4:3,p2k5:3);
writeln('Выпавшие кости у игрока ', player3,' :',p3k1:3,p3k2:3,p3k3:3,p3k4:3,p3k5:3);
writeln('Выпавшие кости у игрока ', player4,' :',p4k1:3,p4k2:3,p4k3:3,p4k4:3,p4k5:3);
writeln;
writeln;
Writeln('Комбинации у игрока ',player1,':');
if (p1k1) or (p1k1) or (p1k2) or (p1k3) or (p1k4) or (p1k5) = (p1k1) or (p1k1) or (p1k2) or (p1k3) or (p1k4) or (p1k5) then writeln('У игрока ',player1,para);
if (p1k1=p1k2) and (p1k3 = p1k4) or (p1k1=p1k2) and (p1k3=p1k5) or (p1k1=p1k3) and (p1k2=p1k4) or (p1k1=p1k3) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k4=p1k5) or (p1k1=p1k4) and (p1k2=p1k3) or (p1k1=p1k4) and (p1k2=p1k5) OR (p1k1=p1k4) and (p1k3=p1k5) or (p1k1=p1k5) and (p1k2=p1k3) or (p1k1=p1k5) and (p1k2=p1k4) or (p1k1=p1k5) and (p1k3=p1k4) then writeln('У игрока ',player1,para2);
if (p1k1=p1k2) and (p1k2=p1k3) or (p1k1=p1k2) and (p1k2=p1k4) or (p1k1=p1k2) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k3=p1k4) or (p1k1=p1k3) and (p1k3=p1k5) or (p1k1=p1k4) and (p1k4=p1k5) or (p1k2=p1k3) and (p1k3=p1k4) or (p1k2=p1k3) and (p1k3=p1k5) or (p1k2=p1k4) and (p1k4=p1k5) or (p1k3=p1k4) and (p1k4=p1k5) then writeln ('у игрока ',player1,troika);
if (p1k5<6) and (p1k4<6) and (p1k3<6) and (p1k2<6) and (p1k1<6) and (p1k1<>p1k2) and (p1k1<>p1k3) and (p1k1<>p1k4) and (p1k1<>p1k5) and (p1k2<>p1k3)and (p1k2<>p1k4) and (p1k2<>p1k5) and (p1k3<>p1k5) and (p1k3<>p1k4)and (p1k4<>p1k5) then writeln ('у игрока ',player1,stm);
if (p1k1=p1k2) and (p1k2=p1k3) and (p1k4=p1k5) or (p1k1=p1k2) and (p1k2=p1k4) and (p1k3=p1k5) or (p1k1=p1k2) and (p1k2=p1k5) and (p1k4=p1k3) or (p1k1=p1k4) and (p1k4=p1k5) and (p1k2=p1k3) or (p1k1=p1k3) and (p1k3=p1k4) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k3=p1k5) and (p1k2=p1k4) or (p1k2=p1k3) and (p1k3=p1k4) and (p1k1=p1k5) or (p1k2=p1k3) and (p1k3=p1k5) and (p1k1=p1k4) or (p1k2=p1k4) and (p1k4=p1k5) and (p1k1=p1k3) or (p1k3=p1k4) and (p1k4=p1k5) and (p1k1=p1k2) then writeln('у игрока ',player1,fh);
if (p1k5>1) and (p1k4>1) and (p1k3>1) and (p1k2>1) and (p1k1>1) and (p1k1<>p1k2) and (p1k1<>p1k3) and (p1k1<>p1k4) and (p1k1<>p1k5) and (p1k2<>p1k3)and (p1k2<>p1k4) and (p1k2<>p1k5) and (p1k3<>p1k5) and (p1k3<>p1k4) and (p1k4<>p1k5) then writeln ('у игрока ',player1,stb);
if (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k4) or (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k5) or (p1k1 = p1k2) and (p1k2 = p1k4) and (p1k4 = p1k5) or (p1k1 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) or (p1k2 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) then writeln ('у игрока ',player1,kare);
if (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) then writeln('у игрока ',player1,poker);
writeln;
Writeln('Комбинации у игрока ',player2,':');
if (p2k1) or (p2k1) or (p2k2) or (p2k3) or (p2k4) or (p2k5) = (p2k1) or (p2k1) or (p2k2) or (p2k3) or (p2k4) or (p2k5) then writeln('У игрока ',player2,para);
if (p2k1=p2k2) and (p2k3 = p2k4) or (p2k1=p2k2) and (p2k3=p2k5) or (p2k1=p2k3) and (p2k2=p2k4) or (p2k1=p2k3) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k4=p2k5) or (p2k1=p2k4) and (p2k2=p2k3) or (p2k1=p2k4) and (p2k2=p2k5) OR (p2k1=p2k4) and (p2k3=p2k5) or (p2k1=p2k5) and (p2k2=p2k3) or (p2k1=p2k5) and (p2k2=p2k4) or (p2k1=p2k5) and (p2k3=p2k4) then writeln('У игрока ',player2,para2);
if (p2k1=p2k2) and (p2k2=p2k3) or (p2k1=p2k2) and (p2k2=p2k4) or (p2k1=p2k2) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k3=p2k4) or (p2k1=p2k3) and (p2k3=p2k5) or (p2k1=p2k4) and (p2k4=p2k5) or (p2k2=p2k3) and (p2k3=p2k4) or (p2k2=p2k3) and (p2k3=p2k5) or (p2k2=p2k4) and (p2k4=p2k5) or (p2k3=p2k4) and (p2k4=p2k5) then writeln ('у игрока ',player2,troika);
if (p2k5<6) and (p2k4<6) and (p2k3<6) and (p2k2<6) and (p2k1<6) and (p2k1<>p2k2) and (p2k1<>p2k3) and (p2k1<>p2k4) and (p2k1<>p2k5) and (p2k2<>p2k3)and (p2k2<>p2k4) and (p2k2<>p2k5) and (p2k3<>p2k5) and (p2k3<>p2k4)and (p2k4<>p2k5) then writeln ('у игрока ',player2,stm);
if (p2k1=p2k2) and (p2k2=p2k3) and (p2k4=p2k5) or (p2k1=p2k2) and (p2k2=p2k4) and (p2k3=p2k5) or (p2k1=p2k2) and (p2k2=p2k5) and (p2k4=p2k3) or (p2k1=p2k4) and (p2k4=p2k5) and (p2k2=p2k3) or (p2k1=p2k3) and (p2k3=p2k4) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k3=p2k5) and (p2k2=p2k4) or (p2k2=p2k3) and (p2k3=p2k4) and (p2k1=p2k5) or (p2k2=p2k3) and (p2k3=p2k5) and (p2k1=p2k4) or (p2k2=p2k4) and (p2k4=p2k5) and (p2k1=p2k3) or (p2k3=p2k4) and (p2k4=p2k5) and (p2k1=p2k2) then writeln('у игрока ',player2,fh);
if (p2k5>1) and (p2k4>1) and (p2k3>1) and (p2k2>1) and (p2k1>1) and (p2k1<>p2k2) and (p2k1<>p2k3) and (p2k1<>p2k4) and (p2k1<>p2k5) and (p2k2<>p2k3)and (p2k2<>p2k4) and (p2k2<>p2k5) and (p2k3<>p2k5) and (p2k3<>p2k4) and (p2k4<>p2k5) then writeln ('у игрока ',player2,stb);
if (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k4) or (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k5) or (p2k1 = p2k2) and (p2k2 = p2k4) and (p2k4 = p2k5) or (p2k1 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) or (p2k2 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) then writeln ('у игрока ',player2,kare);
if (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) then writeln('у игрока ',player2,poker);
writeln;
Writeln('Комбинации у игрока ',player3,':');
if (p3k1) or (p3k1) or (p3k2) or (p3k3) or (p3k4) or (p3k5) = (p3k1) or (p3k1) or (p3k2) or (p3k3) or (p3k4) or (p3k5) then writeln('У игрока ',player3,para);
if (p3k1=p3k2) and (p3k3 = p3k4) or (p3k1=p3k2) and (p3k3=p3k5) or (p3k1=p3k3) and (p3k2=p3k4) or (p3k1=p3k3) and (p3k2=p3k5) or (p3k1=p3k3) and (p3k4=p3k5) or (p3k1=p3k4) and (p3k2=p3k3) or (p3k1=p3k4) and (p3k2=p3k5) OR (p3k1=p3k4) and (p3k3=p3k5) or (p3k1=p3k5) and (p3k2=p3k3) or (p3k1=p3k5) and (p3k2=p3k4) or (p3k1=p3k5) and (p3k3=p3k4) then writeln('У игрока ',player3,para2);
if (p3k1=p3k2) and (p3k2=p3k3) or (p3k1=p3k2) and (p3k2=p3k4) or (p3k1=p3k2) and (p3k2=p3k5) or (p3k1=p3k3) and (p3k3=p3k4) or (p3k1=p3k3) and (p3k3=p3k5) or (p3k1=p3k4) and (p3k4=p3k5) or (p3k2=p3k3) and (p3k3=p3k4) or (p3k2=p3k3) and (p3k3=p3k5) or (p3k2=p3k4) and (p3k4=p3k5) or (p3k3=p3k4) and (p3k4=p3k5) then writeln ('у игрока ',player3,troika);
if (p3k5<6) and (p3k4<6) and (p3k3<6) and (p3k2<6) and (p3k1<6) and (p3k1<>p3k2) and (p3k1<>p3k3) and (p3k1<>p3k4) and (p3k1<>p3k5) and (p3k2<>p3k3)and (p3k2<>p3k4) and (p3k2<>p3k5) and (p3k3<>p3k5) and (p3k3<>p3k4)and (p3k4<>p3k5) then writeln ('у игрока ',player3,stm);
if (p3k1=p3k2) and (p3k2=p3k3) and (p3k4=p3k5) or (p3k1=p3k2) and (p3k2=p3k4) and (p3k3=p3k5) or (p3k1=p3k2) and (p3k2=p3k5) and (p3k4=p3k3) or (p3k1=p3k4) and (p3k4=p3k5) and (p3k2=p3k3) or (p3k1=p3k3) and (p3k3=p3k4) and (p3k2=p3k5) or (p3k1=p3k3) and (p3k3=p3k5) and (p3k2=p3k4) or (p3k2=p3k3) and (p3k3=p3k4) and (p3k1=p3k5) or (p3k2=p3k3) and (p3k3=p3k5) and (p3k1=p3k4) or (p3k2=p3k4) and (p3k4=p3k5) and (p3k1=p3k3) or (p3k3=p3k4) and (p3k4=p3k5) and (p3k1=p3k2) then writeln('у игрока ',player3,fh);
if (p3k5>1) and (p3k4>1) and (p3k3>1) and (p3k2>1) and (p3k1>1) and (p3k1<>p3k2) and (p3k1<>p3k3) and (p3k1<>p3k4) and (p3k1<>p3k5) and (p3k2<>p3k3)and (p3k2<>p3k4) and (p3k2<>p3k5) and (p3k3<>p3k5) and (p3k3<>p3k4) and (p3k4<>p3k5) then writeln ('у игрока ',player3,stb);
if (p3k1 = p3k2) and (p3k2 = p3k3) and (p3k3 = p3k4) or (p3k1 = p3k2) and (p3k2 = p3k3) and (p3k3 = p3k5) or (p3k1 = p3k2) and (p3k2 = p3k4) and (p3k4 = p3k5) or (p3k1 = p3k3) and (p3k3 = p3k4) and (p3k4 = p3k5) or (p3k2 = p3k3) and (p3k3 = p3k4) and (p3k4 = p3k5) then writeln ('у игрока ',player3,kare);
if (p3k1 = p3k2) and (p3k2 = p3k3) and (p3k3 = p3k4) and (p3k4 = p3k5) then writeln('у игрока ',player3,poker);
writeln;
Writeln('Комбинации у игрока ',player4,':');
if (p4k1) or (p4k1) or (p4k2) or (p4k3) or (p4k4) or (p4k5) = (p4k1) or (p4k1) or (p4k2) or (p4k3) or (p2k4) or (p4k5) then writeln('У игрока ',player4,para);
if (p4k1=p4k2) and (p4k3 = p4k4) or (p4k1=p4k2) and (p4k3=p4k5) or (p4k1=p4k3) and (p4k2=p4k4) or (p4k1=p4k3) and (p4k2=p4k5) or (p4k1=p4k3) and (p4k4=p4k5) or (p4k1=p4k4) and (p4k2=p4k3) or (p4k1=p4k4) and (p4k2=p4k5) OR (p4k1=p4k4) and (p4k3=p4k5) or (p4k1=p4k5) and (p4k2=p4k3) or (p4k1=p4k5) and (p4k2=p4k4) or (p4k1=p4k5) and (p4k3=p4k4) then writeln('У игрока ',player4,para2);
if (p4k1=p4k2) and (p4k2=p4k3) or (p4k1=p4k2) and (p4k2=p4k4) or (p4k1=p4k2) and (p4k2=p4k5) or (p4k1=p4k3) and (p4k3=p4k4) or (p4k1=p4k3) and (p4k3=p4k5) or (p4k1=p4k4) and (p4k4=p4k5) or (p4k2=p4k3) and (p4k3=p4k4) or (p4k2=p4k3) and (p4k3=p4k5) or (p4k2=p4k4) and (p4k4=p4k5) or (p4k3=p4k4) and (p4k4=p4k5) then writeln ('у игрока ',player4,troika);
if (p4k5<6) and (p4k4<6) and (p4k3<6) and (p4k2<6) and (p4k1<6) and (p4k1<>p4k2) and (p4k1<>p4k3) and (p4k1<>p4k4) and (p4k1<>p4k5) and (p4k2<>p4k3)and (p4k2<>p4k4) and (p4k2<>p4k5) and (p4k3<>p4k5) and (p4k3<>p4k4)and (p4k4<>p4k5) then writeln ('у игрока ',player4,stm);
if (p4k1=p4k2) and (p4k2=p4k3) and (p4k4=p4k5) or (p4k1=p4k2) and (p4k2=p4k4) and (p4k3=p4k5) or (p4k1=p4k2) and (p4k2=p4k5) and (p4k4=p4k3) or (p4k1=p4k4) and (p4k4=p4k5) and (p4k2=p4k3) or (p4k1=p4k3) and (p4k3=p4k4) and (p4k2=p4k5) or (p4k1=p4k3) and (p4k3=p4k5) and (p4k2=p4k4) or (p4k2=p4k3) and (p4k3=p4k4) and (p4k1=p4k5) or (p4k2=p4k3) and (p4k3=p4k5) and (p4k1=p4k4) or (p4k2=p4k4) and (p4k4=p4k5) and (p4k1=p4k3) or (p4k3=p4k4) and (p4k4=p4k5) and (p4k1=p4k2) then writeln('у игрока ',player4,fh);
if (p4k5>1) and (p4k4>1) and (p4k3>1) and (p4k2>1) and (p4k1>1) and (p4k1<>p4k2) and (p4k1<>p4k3) and (p4k1<>p4k4) and (p4k1<>p4k5) and (p4k2<>p4k3)and (p4k2<>p4k4) and (p4k2<>p4k5) and (p4k3<>p4k5) and (p4k3<>p4k4) and (p4k4<>p4k5) then writeln ('у игрока ',player4,stb);
if (p4k1 = p4k2) and (p4k2 = p4k3) and (p4k3 = p4k4) or (p4k1 = p4k2) and (p4k2 = p4k3) and (p4k3 = p4k5) or (p4k1 = p4k2) and (p4k2 = p4k4) and (p4k4 = p4k5) or (p4k1 = p4k3) and (p4k3 = p4k4) and (p4k4 = p4k5) or (p4k2 = p4k3) and (p4k3 = p4k4) and (p4k4 = p4k5) then writeln ('у игрока ',player4,kare);
if (p4k1 = p4k2) and (p4k2 = p4k3) and (p4k3 = p4k4) and (p4k4 = p4k5) then writeln('у игрока ',player4,poker);
end;
// При количестве игроков 5
if (x=5) then begin
Writeln('Введите имена игроков: ');
write('Первый игрок: ');
readln(player1);
write('Второй игрок: ');
readln(player2);
write('Третий игрок: ');
readln(player3);
write('Четвертый игрок: ');
readln(player4);
write('Пятый игрок: ');
readln(player5);
writeln;
writeln;
writeln('Выпавшие кости у игрока ', player1,' :',p1k1:3,p1k2:3,p1k3:3,p1k4:3,p1k5:3);
writeln('Выпавшие кости у игрока ', player2,' :',p2k1:3,p2k2:3,p2k3:3,p2k4:3,p2k5:3);
writeln('Выпавшие кости у игрока ', player3,' :',p3k1:3,p3k2:3,p3k3:3,p3k4:3,p3k5:3);
writeln('Выпавшие кости у игрока ', player4,' :',p4k1:3,p4k2:3,p4k3:3,p4k4:3,p4k5:3);
writeln('Выпавшие кости у игрока ', player5,' :',p5k1:3,p5k2:3,p5k3:3,p5k4:3,p5k5:3);
writeln;
writeln;
Writeln('Комбинации у игрока ',player1,':');
if (p1k1) or (p1k1) or (p1k2) or (p1k3) or (p1k4) or (p1k5) = (p1k1) or (p1k1) or (p1k2) or (p1k3) or (p1k4) or (p1k5) then writeln('У игрока ',player1,para);
if (p1k1=p1k2) and (p1k3 = p1k4) or (p1k1=p1k2) and (p1k3=p1k5) or (p1k1=p1k3) and (p1k2=p1k4) or (p1k1=p1k3) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k4=p1k5) or (p1k1=p1k4) and (p1k2=p1k3) or (p1k1=p1k4) and (p1k2=p1k5) OR (p1k1=p1k4) and (p1k3=p1k5) or (p1k1=p1k5) and (p1k2=p1k3) or (p1k1=p1k5) and (p1k2=p1k4) or (p1k1=p1k5) and (p1k3=p1k4) then writeln('У игрока ',player1,para2);
if (p1k1=p1k2) and (p1k2=p1k3) or (p1k1=p1k2) and (p1k2=p1k4) or (p1k1=p1k2) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k3=p1k4) or (p1k1=p1k3) and (p1k3=p1k5) or (p1k1=p1k4) and (p1k4=p1k5) or (p1k2=p1k3) and (p1k3=p1k4) or (p1k2=p1k3) and (p1k3=p1k5) or (p1k2=p1k4) and (p1k4=p1k5) or (p1k3=p1k4) and (p1k4=p1k5) then writeln ('у игрока ',player1,troika);
if (p1k5<6) and (p1k4<6) and (p1k3<6) and (p1k2<6) and (p1k1<6) and (p1k1<>p1k2) and (p1k1<>p1k3) and (p1k1<>p1k4) and (p1k1<>p1k5) and (p1k2<>p1k3)and (p1k2<>p1k4) and (p1k2<>p1k5) and (p1k3<>p1k5) and (p1k3<>p1k4)and (p1k4<>p1k5) then writeln ('у игрока ',player1,stm);
if (p1k1=p1k2) and (p1k2=p1k3) and (p1k4=p1k5) or (p1k1=p1k2) and (p1k2=p1k4) and (p1k3=p1k5) or (p1k1=p1k2) and (p1k2=p1k5) and (p1k4=p1k3) or (p1k1=p1k4) and (p1k4=p1k5) and (p1k2=p1k3) or (p1k1=p1k3) and (p1k3=p1k4) and (p1k2=p1k5) or (p1k1=p1k3) and (p1k3=p1k5) and (p1k2=p1k4) or (p1k2=p1k3) and (p1k3=p1k4) and (p1k1=p1k5) or (p1k2=p1k3) and (p1k3=p1k5) and (p1k1=p1k4) or (p1k2=p1k4) and (p1k4=p1k5) and (p1k1=p1k3) or (p1k3=p1k4) and (p1k4=p1k5) and (p1k1=p1k2) then writeln('у игрока ',player1,fh);
if (p1k5>1) and (p1k4>1) and (p1k3>1) and (p1k2>1) and (p1k1>1) and (p1k1<>p1k2) and (p1k1<>p1k3) and (p1k1<>p1k4) and (p1k1<>p1k5) and (p1k2<>p1k3)and (p1k2<>p1k4) and (p1k2<>p1k5) and (p1k3<>p1k5) and (p1k3<>p1k4) and (p1k4<>p1k5) then writeln ('у игрока ',player1,stb);
if (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k4) or (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k5) or (p1k1 = p1k2) and (p1k2 = p1k4) and (p1k4 = p1k5) or (p1k1 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) or (p1k2 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) then writeln ('у игрока ',player1,kare);
if (p1k1 = p1k2) and (p1k2 = p1k3) and (p1k3 = p1k4) and (p1k4 = p1k5) then writeln('у игрока ',player1,poker);
writeln;
 
Writeln('Комбинации у игрока ',player2,':');
if (p2k1) or (p2k1) or (p2k2) or (p2k3) or (p2k4) or (p2k5) = (p2k1) or (p2k1) or (p2k2) or (p2k3) or (p2k4) or (p2k5) then writeln('У игрока ',player2,para);
if (p2k1=p2k2) and (p2k3 = p2k4) or (p2k1=p2k2) and (p2k3=p2k5) or (p2k1=p2k3) and (p2k2=p2k4) or (p2k1=p2k3) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k4=p2k5) or (p2k1=p2k4) and (p2k2=p2k3) or (p2k1=p2k4) and (p2k2=p2k5) OR (p2k1=p2k4) and (p2k3=p2k5) or (p2k1=p2k5) and (p2k2=p2k3) or (p2k1=p2k5) and (p2k2=p2k4) or (p2k1=p2k5) and (p2k3=p2k4) then writeln('У игрока ',player2,para2);
if (p2k1=p2k2) and (p2k2=p2k3) or (p2k1=p2k2) and (p2k2=p2k4) or (p2k1=p2k2) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k3=p2k4) or (p2k1=p2k3) and (p2k3=p2k5) or (p2k1=p2k4) and (p2k4=p2k5) or (p2k2=p2k3) and (p2k3=p2k4) or (p2k2=p2k3) and (p2k3=p2k5) or (p2k2=p2k4) and (p2k4=p2k5) or (p2k3=p2k4) and (p2k4=p2k5) then writeln ('у игрока ',player2,troika);
if (p2k5<6) and (p2k4<6) and (p2k3<6) and (p2k2<6) and (p2k1<6) and (p2k1<>p2k2) and (p2k1<>p2k3) and (p2k1<>p2k4) and (p2k1<>p2k5) and (p2k2<>p2k3)and (p2k2<>p2k4) and (p2k2<>p2k5) and (p2k3<>p2k5) and (p2k3<>p2k4)and (p2k4<>p2k5) then writeln ('у игрока ',player2,stm);
if (p2k1=p2k2) and (p2k2=p2k3) and (p2k4=p2k5) or (p2k1=p2k2) and (p2k2=p2k4) and (p2k3=p2k5) or (p2k1=p2k2) and (p2k2=p2k5) and (p2k4=p2k3) or (p2k1=p2k4) and (p2k4=p2k5) and (p2k2=p2k3) or (p2k1=p2k3) and (p2k3=p2k4) and (p2k2=p2k5) or (p2k1=p2k3) and (p2k3=p2k5) and (p2k2=p2k4) or (p2k2=p2k3) and (p2k3=p2k4) and (p2k1=p2k5) or (p2k2=p2k3) and (p2k3=p2k5) and (p2k1=p2k4) or (p2k2=p2k4) and (p2k4=p2k5) and (p2k1=p2k3) or (p2k3=p2k4) and (p2k4=p2k5) and (p2k1=p2k2) then writeln('у игрока ',player2,fh);
if (p2k5>1) and (p2k4>1) and (p2k3>1) and (p2k2>1) and (p2k1>1) and (p2k1<>p2k2) and (p2k1<>p2k3) and (p2k1<>p2k4) and (p2k1<>p2k5) and (p2k2<>p2k3)and (p2k2<>p2k4) and (p2k2<>p2k5) and (p2k3<>p2k5) and (p2k3<>p2k4) and (p2k4<>p2k5) then writeln ('у игрока ',player2,stb);
if (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k4) or (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k5) or (p2k1 = p2k2) and (p2k2 = p2k4) and (p2k4 = p2k5) or (p2k1 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) or (p2k2 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) then writeln ('у игрока ',player2,kare);
if (p2k1 = p2k2) and (p2k2 = p2k3) and (p2k3 = p2k4) and (p2k4 = p2k5) then writeln('у игрока ',player2,poker);
writeln;
 
Writeln('Комбинации у игрока ',player3,':');
if (p3k1) or (p3k1) or (p3k2) or (p3k3) or (p3k4) or (p3k5) = (p3k1) or (p3k1) or (p3k2) or (p3k3) or (p3k4) or (p3k5) then writeln('У игрока ',player3,para);
if (p3k1=p3k2) and (p3k3 = p3k4) or (p3k1=p3k2) and (p3k3=p3k5) or (p3k1=p3k3) and (p3k2=p3k4) or (p3k1=p3k3) and (p3k2=p3k5) or (p3k1=p3k3) and (p3k4=p3k5) or (p3k1=p3k4) and (p3k2=p3k3) or (p3k1=p3k4) and (p3k2=p3k5) OR (p3k1=p3k4) and (p3k3=p3k5) or (p3k1=p3k5) and (p3k2=p3k3) or (p3k1=p3k5) and (p3k2=p3k4) or (p3k1=p3k5) and (p3k3=p3k4) then writeln('У игрока ',player3,para2);
if (p3k1=p3k2) and (p3k2=p3k3) or (p3k1=p3k2) and (p3k2=p3k4) or (p3k1=p3k2) and (p3k2=p3k5) or (p3k1=p3k3) and (p3k3=p3k4) or (p3k1=p3k3) and (p3k3=p3k5) or (p3k1=p3k4) and (p3k4=p3k5) or (p3k2=p3k3) and (p3k3=p3k4) or (p3k2=p3k3) and (p3k3=p3k5) or (p3k2=p3k4) and (p3k4=p3k5) or (p3k3=p3k4) and (p3k4=p3k5) then writeln ('у игрока ',player3,troika);
if (p3k5<6) and (p3k4<6) and (p3k3<6) and (p3k2<6) and (p3k1<6) and (p3k1<>p3k2) and (p3k1<>p3k3) and (p3k1<>p3k4) and (p3k1<>p3k5) and (p3k2<>p3k3)and (p3k2<>p3k4) and (p3k2<>p3k5) and (p3k3<>p3k5) and (p3k3<>p3k4)and (p3k4<>p3k5) then writeln ('у игрока ',player3,stm);
if (p3k1=p3k2) and (p3k2=p3k3) and (p3k4=p3k5) or (p3k1=p3k2) and (p3k2=p3k4) and (p3k3=p3k5) or (p3k1=p3k2) and (p3k2=p3k5) and (p3k4=p3k3) or (p3k1=p3k4) and (p3k4=p3k5) and (p3k2=p3k3) or (p3k1=p3k3) and (p3k3=p3k4) and (p3k2=p3k5) or (p3k1=p3k3) and (p3k3=p3k5) and (p3k2=p3k4) or (p3k2=p3k3) and (p3k3=p3k4) and (p3k1=p3k5) or (p3k2=p3k3) and (p3k3=p3k5) and (p3k1=p3k4) or (p3k2=p3k4) and (p3k4=p3k5) and (p3k1=p3k3) or (p3k3=p3k4) and (p3k4=p3k5) and (p3k1=p3k2) then writeln('у игрока ',player3,fh);
if (p3k5>1) and (p3k4>1) and (p3k3>1) and (p3k2>1) and (p3k1>1) and (p3k1<>p3k2) and (p3k1<>p3k3) and (p3k1<>p3k4) and (p3k1<>p3k5) and (p3k2<>p3k3)and (p3k2<>p3k4) and (p3k2<>p3k5) and (p3k3<>p3k5) and (p3k3<>p3k4) and (p3k4<>p3k5) then writeln ('у игрока ',player3,stb);
if (p3k1 = p3k2) and (p3k2 = p3k3) and (p3k3 = p3k4) or (p3k1 = p3k2) and (p3k2 = p3k3) and (p3k3 = p3k5) or (p3k1 = p3k2) and (p3k2 = p3k4) and (p3k4 = p3k5) or (p3k1 = p3k3) and (p3k3 = p3k4) and (p3k4 = p3k5) or (p3k2 = p3k3) and (p3k3 = p3k4) and (p3k4 = p3k5) then writeln ('у игрока ',player3,kare);
if (p3k1 = p3k2) and (p3k2 = p3k3) and (p3k3 = p3k4) and (p3k4 = p3k5) then writeln('у игрока ',player3,poker);
writeln;
 
Writeln('Комбинации у игрока ',player4,':');
if (p4k1) or (p4k1) or (p4k2) or (p4k3) or (p4k4) or (p4k5) = (p4k1) or (p4k1) or (p4k2) or (p4k3) or (p2k4) or (p4k5) then writeln('У игрока ',player4,para);
if (p4k1=p4k2) and (p4k3 = p4k4) or (p4k1=p4k2) and (p4k3=p4k5) or (p4k1=p4k3) and (p4k2=p4k4) or (p4k1=p4k3) and (p4k2=p4k5) or (p4k1=p4k3) and (p4k4=p4k5) or (p4k1=p4k4) and (p4k2=p4k3) or (p4k1=p4k4) and (p4k2=p4k5) OR (p4k1=p4k4) and (p4k3=p4k5) or (p4k1=p4k5) and (p4k2=p4k3) or (p4k1=p4k5) and (p4k2=p4k4) or (p4k1=p4k5) and (p4k3=p4k4) then writeln('У игрока ',player4,para2);
if (p4k1=p4k2) and (p4k2=p4k3) or (p4k1=p4k2) and (p4k2=p4k4) or (p4k1=p4k2) and (p4k2=p4k5) or (p4k1=p4k3) and (p4k3=p4k4) or (p4k1=p4k3) and (p4k3=p4k5) or (p4k1=p4k4) and (p4k4=p4k5) or (p4k2=p4k3) and (p4k3=p4k4) or (p4k2=p4k3) and (p4k3=p4k5) or (p4k2=p4k4) and (p4k4=p4k5) or (p4k3=p4k4) and (p4k4=p4k5) then writeln ('у игрока ',player4,troika);
if (p4k5<6) and (p4k4<6) and (p4k3<6) and (p4k2<6) and (p4k1<6) and (p4k1<>p4k2) and (p4k1<>p4k3) and (p4k1<>p4k4) and (p4k1<>p4k5) and (p4k2<>p4k3)and (p4k2<>p4k4) and (p4k2<>p4k5) and (p4k3<>p4k5) and (p4k3<>p4k4)and (p4k4<>p4k5) then writeln ('у игрока ',player4,stm);
if (p4k1=p4k2) and (p4k2=p4k3) and (p4k4=p4k5) or (p4k1=p4k2) and (p4k2=p4k4) and (p4k3=p4k5) or (p4k1=p4k2) and (p4k2=p4k5) and (p4k4=p4k3) or (p4k1=p4k4) and (p4k4=p4k5) and (p4k2=p4k3) or (p4k1=p4k3) and (p4k3=p4k4) and (p4k2=p4k5) or (p4k1=p4k3) and (p4k3=p4k5) and (p4k2=p4k4) or (p4k2=p4k3) and (p4k3=p4k4) and (p4k1=p4k5) or (p4k2=p4k3) and (p4k3=p4k5) and (p4k1=p4k4) or (p4k2=p4k4) and (p4k4=p4k5) and (p4k1=p4k3) or (p4k3=p4k4) and (p4k4=p4k5) and (p4k1=p4k2) then writeln('у игрока ',player4,fh);
if (p4k5>1) and (p4k4>1) and (p4k3>1) and (p4k2>1) and (p4k1>1) and (p4k1<>p4k2) and (p4k1<>p4k3) and (p4k1<>p4k4) and (p4k1<>p4k5) and (p4k2<>p4k3)and (p4k2<>p4k4) and (p4k2<>p4k5) and (p4k3<>p4k5) and (p4k3<>p4k4) and (p4k4<>p4k5) then writeln ('у игрока ',player4,stb);
if (p4k1 = p4k2) and (p4k2 = p4k3) and (p4k3 = p4k4) or (p4k1 = p4k2) and (p4k2 = p4k3) and (p4k3 = p4k5) or (p4k1 = p4k2) and (p4k2 = p4k4) and (p4k4 = p4k5) or (p4k1 = p4k3) and (p4k3 = p4k4) and (p4k4 = p4k5) or (p4k2 = p4k3) and (p4k3 = p4k4) and (p4k4 = p4k5) then writeln ('у игрока ',player4,kare);
if (p4k1 = p4k2) and (p4k2 = p4k3) and (p4k3 = p4k4) and (p4k4 = p4k5) then writeln('у игрока ',player4,poker);
writeln;
 
Writeln('Комбинации у игрока ',player5,':');
if (p5k1) or (p5k1) or (p5k2) or (p5k3) or (p5k4) or (p5k5) = (p5k1) or (p5k1) or (p5k2) or (p5k3) or (p5k4) or (p5k5) then writeln('У игрока ',player5,para);
if (p5k1=p5k2) and (p5k3 = p5k4) or (p5k1=p5k2) and (p5k3=p5k5) or (p5k1=p5k3) and (p5k2=p5k4) or (p5k1=p5k3) and (p5k2=p5k5) or (p5k1=p5k3) and (p5k4=p5k5) or (p5k1=p5k4) and (p5k2=p5k3) or (p5k1=p5k4) and (p5k2=p5k5) OR (p5k1=p5k4) and (p5k3=p5k5) or (p5k1=p5k5) and (p5k2=p5k3) or (p5k1=p5k5) and (p5k2=p5k4) or (p5k1=p5k5) and (p5k3=p5k4) then writeln('У игрока ',player5,para2);
if (p5k1=p5k2) and (p5k2=p5k3) or (p5k1=p5k2) and (p5k2=p5k4) or (p5k1=p5k2) and (p5k2=p5k5) or (p5k1=p5k3) and (p5k3=p5k4) or (p5k1=p5k3) and (p5k3=p5k5) or (p5k1=p5k4) and (p5k4=p5k5) or (p5k2=p5k3) and (p5k3=p5k4) or (p5k2=p5k3) and (p5k3=p5k5) or (p5k2=p5k4) and (p5k4=p5k5) or (p5k3=p5k4) and (p5k4=p5k5) then writeln ('у игрока ',player5,troika);
if (p5k5<6) and (p5k4<6) and (p5k3<6) and (p5k2<6) and (p5k1<6) and (p5k1<>p5k2) and (p5k1<>p5k3) and (p5k1<>p5k4) and (p5k1<>p5k5) and (p5k2<>p5k3)and (p5k2<>p5k4) and (p5k2<>p5k5) and (p5k3<>p5k5) and (p5k3<>p5k4)and (p5k4<>p5k5) then writeln ('у игрока ',player5,stm);
if (p5k1=p5k2) and (p5k2=p5k3) and (p5k4=p5k5) or (p5k1=p5k2) and (p5k2=p5k4) and (p5k3=p5k5) or (p5k1=p5k2) and (p5k2=p5k5) and (p5k4=p5k3) or (p5k1=p5k4) and (p5k4=p5k5) and (p5k2=p5k3) or (p5k1=p5k3) and (p5k3=p5k4) and (p5k2=p5k5) or (p5k1=p5k3) and (p5k3=p5k5) and (p5k2=p5k4) or (p5k2=p5k3) and (p5k3=p5k4) and (p5k1=p5k5) or (p5k2=p5k3) and (p5k3=p5k5) and (p5k1=p5k4) or (p5k2=p5k4) and (p5k4=p5k5) and (p5k1=p5k3) or (p5k3=p5k4) and (p5k4=p5k5) and (p5k1=p5k2) then writeln('у игрока ',player5,fh);
if (p5k5>1) and (p5k4>1) and (p5k3>1) and (p5k2>1) and (p5k1>1) and (p5k1<>p5k2) and (p5k1<>p5k3) and (p5k1<>p5k4) and (p5k1<>p5k5) and (p5k2<>p5k3)and (p5k2<>p5k4) and (p5k2<>p5k5) and (p5k3<>p5k5) and (p5k3<>p5k4) and (p5k4<>p5k5) then writeln ('у игрока ',player5,stb);
if (p5k1 = p5k2) and (p5k2 = p5k3) and (p5k3 = p5k4) or (p5k1 = p5k2) and (p5k2 = p5k3) and (p5k3 = p5k5) or (p5k1 = p5k2) and (p5k2 = p5k4) and (p5k4 = p5k5) or (p5k1 = p5k3) and (p5k3 = p5k4) and (p5k4 = p5k5) or (p5k2 = p5k3) and (p5k3 = p5k4) and (p5k4 = p5k5) then writeln ('у игрока ',player5,kare);
if (p5k1 = p5k2) and (p5k2 = p5k3) and (p5k3 = p5k4) and (p5k4 = p5k5) then writeln('у игрока ',player5,poker);
end;
writeln;
writeln;
 
 
repeat
until c=#27;
end.