Помогите пожалуйстаа решить задачу. Очен нужноо массив a [i]=15-4i подсчитать…

// в первой строчке выводятся номера чисел, во второй количествоvari,s: integer; a: array [1… 100] of integer; beginfor i: =1 to 15 dobegina[i]: =15-4*i; {находим числа от 1 до 15, которые при 15-4i меньше нуля}if a[i]<0 {если число меньше нуля}then {то}begins: =s+1; { к счетку прибавляем один, т.е. считаем количество таких чисел}write (i,'); {и выводим их на экран}end; end; writeln; {осовбождаем новую строчку для колчества чисел}writeln (s); {и выводим их на экран}end. Вот скиньте это в паскаль, там все понятнее будет