Решить с помощью цилка с предусловием : A=5+10+15+20+...+N
Начало сам напишешь) тут начало ; A:=0; for i:=1 to N/5 do A:=A+i*5; write(A); end.