Как-то смутно описаны правила игры.
А так же неизвестно, какой ПОскаль и на каком уровне изучают в вашем 9 классе.
program N87011225;
uses
crt;
function Rnd: byte;
begin
Rnd := random(6) + 1
end;
function Input(UpBound: byte): byte;
var
Key: byte;
begin
repeat
Key := ord(readkey);
if Key = 0 then
readkey
until (Key > $30) and (Key <= UpBound + $30);
Input := Key - $30;
writeln(chr(Key))
end;
var
Player: byte;
Score: array[0 .. 1] of byte;
begin
fillchar(Score, sizeof(Score), 0);
randomize;
clrscr;
Player := random(2);
if Player = 0 then
writeln('Я первый загадываю число. ')
else
writeln('Вы загадываете число первым. ');
repeat
case Player of
0: begin
writeln(#13#10'Я загадал число от 1 до 6. Угадайте его. ');
write('> ');
if Input(6) = Rnd then
begin
writeln('Правильно! ');
inc(Score[1])
end
else
writeln('Неправильно. ')
end;
1: begin
write(#13#10'Загадайте число от 1 до 6 ');
writeln('и нажмите любую клавишу');
readkey;
writeln('Вы загадали число ', Rnd);
writeln('1 - Правильно');
write('2 - Неправильно'#13#10'> ');
if Input(2) = 1 then
inc(Score[0])
end;
end;
Player := 1 - Player;
writeln('Счёт ', Score[0], ':', Score[1]);
until (Score[0] = 10) or (Score[1] = 10);
if Score[0] = 10 then
write('Вы проиграли. ')
else
write('Вы выиграли. ');
readkey
end.