090909090909090909рпрпрпрпрпр

Program dlksjijh;
var
  A: array[1..40] of integer;
  i: integer;
begin
  randomize;
  writeln('исходные данные:');
  for i := 1 to 40 do
  begin
    A[i] := Random(21);
    write(A[i], ' ');
  end;
  writeln;
  writeln('преобрезованный массив:');
  for i := 1 to 40 do
  begin
    if A[i] mod 2 = 0 then
      A[i] := Round(A[i]/2)
    else
      A[i] := A[i] * 3;
    write(A[i], ' ');
  end;
end.

Имена математических операций - с прописной буквы, и, поскольку есть  Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.

У меня работает.

Слова из 2 букв, составленные из комбинации "документ" (28 слов):

де дм дн до ед ем км кн ко ку ме мн мо му не нм но ну омон от те то ту уд ук ум ут

Слова из 3 букв, составленные из комбинации "документ" (48 слов):

дек днк дно док дом дон дот дуо ему кед кем кен код кое ком кон кот кто кум кун кут мед мек мне мое мок мот мук нед нем нет нок ном нот ноу нто нут отд отк тем тку ток том тон тук тун уем унт

Слова из 4 букв, составленные из комбинации "документ" (34 слова):

демо днем доем доке докт доку едок едун екну енот кент кмет кнут коем кому мент меот мету нему нету неуд неук ноем номе ному одну омет омут отек ткем тому умет утке уток

Слова из 5 букв, составленные из комбинации "документ" (16 слов):

демон домен кетон коему медок метод монет монте мотке моткумутон некто немок отеку темно тумен

Слова из 6 букв, составленные из комбинации "документ" (2 слова):

мукоед утенок