Составьте алгоритмы рисования слов "МИР", "РИМ", "МИМ"

Объяснение:

А такое вообще можно?

Если да то как

напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);