Напишите, , программу на языке pascal ! вводится последовательность из n целых положительных элементов. подсчитать количество совершенных чисел в последовательности. для определения совершенного числа создать функцию.

function f(x:longint):boolean;

var i,k:longint;

begin

for i:=1 to x div 2 do

if x mod i=0 then k+=i;

if k=x then f:=true else f:=false

end;

var i,n,k,ans:longint;

begin

read(n);

for i:=1 to n do

begin

read(k);

if f(k) then ans+=1

end;

write(ans)

end.