Привет всем я тут с недавного времени, вот хочю попросить у вас помощи ...
1. Кости. Составить программу каторая иметирует кидание костей 2ух учястников.
Вобщем надо чтоб запуская программу генерировалось число от 2 до 12 и в конце выводился результат кто выйграл, 1ый учястник или 2ой учястник.

randomize;
n := random(11) + 2;

n - будет случайным числом от 2 до 12.

А вот как сделать чтоб выводился результат в конце у кого большее число, и как сделать чтоб нажимая на Enter выпадала сначало 1 числа при повторном нажатии 2 число :smile:
Зарание спасибо

И ещё мне нужна помощь во 2. задачке, задачю сам не могу понять потому что перевожу с Латышского языка ...
Тест. Составить 2 числа сложение и отнимание тест для проверки ума. Числа генерируются автомочитески, использовать функцию random.
Вобщем я ни чего не понимаюв условии этой задачи, но может на кого нибуть мана небесная упадёт

Ну ты бы хоть учебник почитал ...

uses crt;
var
   first, second : byte;
begin
   clrscr;
   randomize;
   writeln('Нажмите <Enter> для хода игрока № 1');
   readln;
   first := random(11) + 2;
   writeln('Перавй игрок набрал ', first, ' очков');
   writeln('Нажмите <Enter> для хода игрока № 2');
   readln;
   second := random(11)+2;
   writeln('Второй игрок набрал ',second,' очков');
   writeln;
   if first>second then
    writeln('Победил игрок № 1')
   else
    if first<second then
    writeln('Победил игрок № 2')
   else
    writeln('Ничья  ');

   readln;
end.

...
  Randomize;
  
  max := 0;
  For Player := 1 To 2 Do Begin
  
    WriteLn('Player #', Player);
    Count := 0;
    For i := 1 To 2 Do Begin
      n := Random(6) + 1;
      Count := Count + n;
      Write('#', i, ':', n); ReadLn;
    End;
  
    if max = 0 then max := count
    else begin
      if max > count then write('#1')
      else
        if max = count then write('friendship')
        else write('#2');
      writeln(' is winner !!!');
    end;
  
  
  End;
...

Ой большое спасибо всем, а точнее суппер
(активным, хорошим ) модераторам