Найти кол-во и сумму отрицательных значений y. y=a(1+l)/l . где a не равно нулю , а l пренадлежит [-2.5 : 2.5] c шагом 0.52

Var
  a,k:integer;
  y,L,s:real;
begin
  Writeln('Введите ненулевое значение a: ');
  Read(a);
  L:=-2.5; k:=0; s:=0;
  while L<=2.5 do begin
    y:=a*(1+L)/L;
    if y<0 then begin Inc(k); s:=s+y end;
    L:=L+0.52
  end;
  Writeln(k,' отрицательных значений с суммой ',s)
end.

Тестовое решение:
Введите ненулевое значение a:
-3.1
8 отрицательных значений с суммой -61.8798422368665

Панели инструментов в программе SketchUp — основной тип элементов управле- ния программой — блоки кнопок, эквивалентные командам меню, обеспечивающие быстрый доступ к наиболее важным и часто используемым инструментам. Эти блоки в SketchUp, как и в стандартных приложениях ОС Windows — плавающие, т. е. могут быть перемещены в любое место рабочего окна.

Вид и состав панелей инструментов настраивается в меню View | Toolbars (Вид | Панели инструментов). Давайте активируем панели инструментов, которые наиболее часто используются в SketchUp, и кратко их рассмотрим.

Объяснение:

Сорян паскаль не знаю , могу скинуть на С++

Разбираешься в инфе , поймёшь

#include <iostream>

using namespace std ;

int main {

\\ не важно что выше

 

int num , k , o , s , l; \\ объявляем числа  

l, o , s , k ,num = 0 ;  \\ чтобы в компиле гадости не было

cin >> num >> k ; \\ вводим их c клавы

while (num >= 1) {

 s = num ;

 o = s%10 ;

     if (o <= k){ // цикл на проверку условию задачи

     l += 1 ;

     }

 num = num % 10 ;

}

cout << l ; // выводим ответ

\\ не важно что ниже

return 0 ;

}