Метод при котором сложная задача разбивается на несколько более получившиеся задачи сводятся к ещё более называется.

Разделяй и властвуй (лат. divide et impera)

var

i,s: integer;

begin

s: =0;

for i: =20 to 60 do

if i mod 5 =0 then s: =s+i;

writeln(s);

end.

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.