В теории HDMI если чего нового не изобрели
Пример реализации при помощи функции "поиск решения" в Excel
ABC Паскаль
------------------
var
sum:longint;
begin
sum:=0;
// основной цикл
for var i:=3 to 19 do
begin
sum:=sum+5*i;
writeln (i*5);
end;
writeln('Сумма всех двузначных чисел кратных 5 = ',sum);
end.
Program Pr1;
uses crt;
var n,i,a,b,c:integer;
Begin
clrscr;
writeln('Vvedite N');
readln(n);
a:=n;
for i:=2 to 4 do begin
a:=a+10;
n:=n+a;
end;
writeln(n);
end.