Игра камень-ножницы бумага

program dialog;
 
uses
  crt, GraphABC;
 
var
  s, v: char;
 
 
procedure menu;
begin
  Clrscr;
  FloodFill(0,0,Color.Yellow);
  Font.Name := 'Times New Roman';
  Font.Style := fsBoldItalic;
  Font.Size := 15;
  Font.Color := clBlue;
  writeln('menu');
  writeln('4-Text');
  writeln('5-prog');
  writeln('6-pravila');
  writeln('7-ob avtorah');
  writeln('esc-exit');
end;
 
procedure pravila;
begin
  Clrscr;
  writeln('Пользователь выбирает одно из трёх,компьютер-своё одно из трёх.');
  writeln('Далее-ножницы побеждают бумагу,бумага-камень,камень-ножницы.');              
  writeln('Если игроки показали одинаковый знак, то засчитывается ничья.');
  readln;
end;
 
procedure avtor;
begin
  Clrscr;
  writeln('Авторы: Удалова Анастасия и Фёдорова Нина, 9-2, Вторая СПБ гинаязия');
  readln;
end;
 
procedure Text1;
begin
  Clrscr;
  TextBackGround(red);
  Clrscr;
  TextColor(yellow);
  gotoxy(30, 10);
  writeln('Добро пожаловать в игру!');
  readln;
end;
 
procedure lostic;
var
  a, x: Integer;
  str, b, v, s1, s2, s3, x1, x2, x3: string;
 
begin
Clrscr;
  repeat
    Clrscr;
    Writeln('Выберите один из вариантов');
    Writeln('Камень - 0');
    Writeln('Ножницы - 1');
    Writeln('Бумага - 2');
    readln(a);
    s1 := ' Камень ';
    s2 := ' Ножницы ';
    s3 := ' Бумага ';
    if a = 0 then begin
      v := s1;
    end
    else
    begin
      if a = 1 then begin
        v := s2;
      end
      else begin
        v := s3;
      end;
    end;
    x := random(3);
    x1 := ' Камень ';
    x2 := ' Ножницы ';
    x3 := ' Бумага ';
    if x = 0 then begin
      b := x1;
    end
    else
    begin
      if x = 1 then begin
        b := x2;
      end
      else begin
        b := x3;
      end;
    end;
    if(a = 0) and (x = 0) or (a = 2) and (x = 2)
    or (a = 1) and (x = 1)
    then 
    begin
      writeln('итог:ничья ,ведь вы выбрали ', v, ' и компьютер  выбрал ', b, ' ');
    end
    else
    if
    (a = 0) and (x = 1) or (a = 2) and (x = 0) or
    (a = 1) and (x = 2)
    then 
    begin
      writeln('итог:вы выиграли ,ведь вы выбрали ', v, ' ,а компьютер выбрал ', b, ' ');
    end
    else
      Writeln('итог:вы проиграли ,ведь вы выбрали ', v, ' ,а компьютер выбрал ', b, ' ');
    readln;
  until s = #27;
end;
 
 
 
begin
  repeat
    TextBackGround(red);
    Clrscr;
    TextColor(15);
    Menu;
    s := ReadKey;
    case S of
      '4': Text1;
      '5': lostic;
      '6': pravila;
      '7': avtor;
    
    end;
  until s = #27;
  writeln('end');
  readln;
end.