Знайдіть суму всіх цілих чисел від 1 до 100 в abcpascal
задание вроде как изи
​

Вся программа написана не очень корректно но все таки
начну с мэйн
это основная праграма для запуска всего остального
инт ай и джи это целые числа которые ты используешь дальше
принт ф это выходит сообщение где тебе пишется введите число целое
скан ф вывод сообщения с тем что ты написал
фор две строки это выполнения операции с цифрами она прибавляет по 1 лимиты там описаны от 7 до 10 и от 2 до 11
принт ф опять вывод того что получилось далее переходит на следуюшию строку и снова переход 
гетч это оставление окна до тех пор пока ты не нажмешь кнопку

PascalABC.NET

begin

 // Последовательность целых чисел вводится с клавиатуры

 // пока не будет введен 0 (который не войдет в нее).

 // Затем последовательность преобразуется в массив (ToArray)

 // нужного размера, который сохраняется с именем a

 var a := ReadSeqIntegerWhile(p -> p <> 0).ToArray;

 // Заведем счетчики для количества положительных kp и

 // отрицательных kn элементов и обнулим их

 var (kp, kn) := (0, 0);

 // Просматриваем в цикле массив. На каждом шаге p будет обозначать

 // очередной элемент массива

 foreach var p in a do

   if p > 0 then       // если элемент положительный

     kp += 1               // добавим 1 в счетчик положительных

   else if p < 0 then  // если элемент отрицательный

     kn += 1;              // добавим 1 в счетчик отрицательных

 // Осталось вывести результаты

 Writeln('Положительных чисел ', kp, ', отрицательных ', kn)

end.