read(num);
int i:=0, index:=1;

while i<num do
begin
    i:=index+i;
    index:=index+1;
end;

if(i=num) then
write('O numero ', num, ' é perfeito.');
else
write(nao);