Дан массив А целых чисел состоящий из 15 частей. заполнить с

program zz1;
const n = 15; // задаем количество частей в массиве
var i, k:integer; // задаем переменные целого типа
a:array [1..n] of integer;
begin
for i:=1 to n do // получаем n чисел с клавиатуры и записываем их в массив
read(a[i]);
for i:=1 to n do
if (a[i] mod 5 = 2)and(a[i] lt; 0) then begin k:=i;break;end; // проверяем, если число при дроблении на 5 дает в остатке два и оно отрицательное, то запоминаем его номер
write( номер первого отрицательного элемента делящегося на 5 с остатком 2 = , k);
end.