Написать программу на паскале: в целочисленном одномерном массиве из n(n< =50)элементов.найти номера элементов кратных 3.если таких элементов нет, то сообщить об этом.массив заполнить вручную.

program natasha1925; uses crt; const n=50; var  a: array[1..n] of integer;   tri: array[1..n] of integer;   nom,i: integer;   begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   nom: =0;   for i: =1 to n do  begin      write('введите ',i,'-e число ');       readln(a[i]);       if a[i] mod 3 = 0 then           begin              nom: =nom+1;               tri[nom]: =i;           end;     end;   if nom = 0 then           writeln('элементов, кратных 3, нет! : ')      else          begin              writeln('номера элементов, кратных 3: ');               for i: =1 to nom do                  begin                      write(tri[i],' ');                   end;           end;     writeln(); end.

uses crt; var  a: array[1..50] of integer;   i,n,k: integer; begin  clrscr;

  k: =0;   write('введите количество элементов массива'); read(n);   writeln('введите массив: ');   for i: =1 to n do    read(a[i]);   write('номера элементов, кратных 3: ');   for i: =1 to n do

    if (a[i] mod 3=0) then    begin      k: =k+1;       write(i,' ');     end;   if k=0 then write('таких элементов нет.'); end.