{* Угадай число *}

Unit CIKL_8;
Interface
Implementation
Begin
 writeln('Игра "Угадай число"');
End.

Program cikl_8;

Uses cikl_8.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  n : integer;
  i : integer;
  s : integer;
Begin
  clrscr; {* Очистка экрана *}
  i := 0;
  randomize;
  s := random(10) + 1;
  1 : writeln('Vvedite chislo');
  readln(n);
  inc(i); {* i++ *}
  If i = 5 Then
    Goto 2;
  If n = s Then
  Begin
    writeln('Vi pobedily');
    Goto 3;
  End;
  Else Goto 1;
    2 : writeln('Vi proigraly');
  3 : readkey; {* Ждем нажатия любой клавиши *}
End.