Помогите пожалуйста! напишите программку паскаль. вроде циклыДано натуральное число N.

в информатике ничего не разумею, но размышляю это то, что надо. спасибо

дано естественное число n. определить сумму натуральных чисел не превосходящих n. с этим не поможешь?

по-моему эта легче)

СПАСИБО ОГРОМНОЕ!!!

Program gt;
var n,s,l,i:longint;
begin
read(n);
s:=0;
l:=round(sqrt(n));
for i:=1 to l do
begin
if(n mod i=0)then begin
s:=s+i;
s:=s+n div i;
end;
end;
if(l*l=n)then s:=s-l;
if(slt;=n)then writeln('ДА ЭТО ПРАВДА')else writeln('НЕТ');
end.
2)
program gt;
var n:integer;
begin
read(n);
if(n=1)then writeln('ДА')else writeln('НЕТ');
end.
3)
program gt;
var n,s:integer;
begin
read(n);
s:=((1+n)*n)div 2;
writeln(s);
end.