program PerfectNumber;
function IsPerfectNumber$num:integer$: boolean;
var
sum, i: integer;
begin
sum := 0;
for i := 1 to num div 2 do
begin
if num mod i = 0 then
sum := sum + i;
end;
IsPerfectNumber := sum = num;
end;
var
n, num: integer;
hasPerfectNumber: boolean;
begin
hasPerfectNumber := false;
repeat
write${}^{\prime }Введитечисло{:}^{\prime }$;
readln$num$;
if num <> 0 then
begin
if IsPerfectNumber$num$ then
begin
hasPerfectNumber := true;
break;
end;
end;
until num = 0;
if hasPerfectNumber then
writeln${}^{\prime }Последовательностьсодержитхотябыодносовершенноечисло{.}^{\prime }$ else
writeln${}^{\prime }Последовательностьнесодержитсовершенныхчисел{.}^{\prime }$;
end.

Эта программа позволяет ввести последовательность целых чисел, пока не будет введен ноль. Затем программа определяет, содержит ли введенная последовательность хотя бы одно совершенное число $число,равноесуммевсехсвоихделителей,кромесамогосебя$.