народ плз выручайте

народ дайте исх код на делфи для решение квадратных уровнений плз

 

найдено отбой

 

подскажите алгоритм написание данно число n=100
надо вот так 1+2+3...+100 как реализовать

 

Code:

function SumN(n: cardinal): integer;
Result:=0;
for i:=1 to n do inc(Result,i);
end;

 

спасиб