Получить 10 случайных двузначных чисел и определить: четное число или нет.(Паскаль)

Question

Получить 10 случайных двузначных чисел и определить: четное число или нет.
(Паскаль)

Answer 1

Program Project;
var
  I, N: Integer;
begin
  for I:=0 to 9 do begin
    ReadLn(N);

    if (N Mod 2 = 0) then
      WriteLn('чётное')
    else
      WriteLn('нечётное')
  end;
end.

Comments

как получить 10 случайных чисел? там через random нужно же..

---

Вместо ReadLn(N) пишешь N:=Random(300)\