Написать программу, которая выведет из N чисел числа кратные 3 и максимальное из них, если нет чисел кратных 3, вывести NO

//PascalABC.NET//Версия 3.3, сборка 1611beginwrite('Введите n: ');var a:=ArrRandom(ReadInteger(),1,100);write('сгенерированный массив: ');a.Println();var b:=a.Where(x->x mod 3=0);if(b.Count()<>0) thenbeginwrite('числа кратные 3: ' );b.Println();write('максимальное из кратных 3: ',b.Max());end else write('no');end.