Составить программу, которая обеспечит ввод 15 чисел и определит сколько из них отрицательных, которые кратны 3.

Самое забавное, что у меня почти такое же получилось. Спасибо.

var a,i,k:integer;begink:=0;writeln('Введите 15 целых чисел:');for i:=1 to 15 do begin readln(a); if (a<0)and(a mod 3 = 0) then k:=k+1; end;writeln('k = ',k);end.Пример:Введите 15 целых чисел:75-6515-6828-4280-7651-3218-16-4570-65k = 2