сделать Сор по информатике вот это

Program help;
Uses Crt;
Const n = 10; (* Размер массива *)

Var a : Array[1..n] of Integer; (* Массив с числами *)
i : Integer;

Begin
Randomize;
ClrScr;

Writeln('Массив: ');

For i := 1 to n do
Begin
a[i] := random(601) - 300; (* Заполняем рандомными числами *)
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)

if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *)
End;

Writeln('Массив после изменения: ');

For i := 1 to n do
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)

End.