составить текст программы на языке Паскаль. Задан массив, состоящий из 19 элементов целого типа. Найти сумму элементов, расположенных до первого отрицательного элемента. Если отрицательных элементов нет, то выдать соответствующее сообщение

Небольшое наблюдение: если Денис может использовать ровно M лопастей, то он может использовать их так, чтобы четырёхлопастных спиннеров было не больше двух. (Если их три или больше, то каждые три четырёхлопастных спиннера можно поменять на 4 трёхлопастных).

Код (C++)

#include <iostream>

int main() {

   long long M;

   std::cin >> M;

   for (int f = 0; f < 3 && f * 4 <= M; f++) {

       if ((M - f * 4) % 3 == 0) {

           std::cout << (M - f * 4) / 3 << " " << f;

           return 0;

       }

   }

   std::cout << "0 0";

   return 0;

}