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

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.