При вводе текста придерживайся следующих правил

Для того чтобы перейти к вводу нового абзаца, нажми клавишу Shift

Не следи за концом строки: как только он будет достигнут, курсор автоматически перейдёт на начало следующей строки

Там, где это нужно, используй прописные буквы (Shift + буква)

Соседние слова отделяй двумя пробелами

40-1=40 ніг буде без капітана

15-1=14 голів буде без капітана

40/2=20

20-14=6 котів було на кораблі

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.