Помогите пожалуйста! напишите программу паскаль. вроде циклы
Дано натуральное число 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(s<=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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.