дан массив А целых чисел состоящий из 15 элементов. заполнить с клавиатуры: найти номер первого отрицательного элемента делящегося на 5 с остатком 2.

var a:array[1..15]of integer;i,j:integer;beginfor i:=1 to 15 do readln(a[i]);for i:=1 to 15 do beginj:=i;if (a[i]<0) and (a[i] mod 5=-2) then break;end;writeln(j);end.