Нахождение ближайшего совершенного числа

[ZX Spectrum-128]

 for i:=2 to 5 do
    if abs(N-PerfectNumbers[i])<abs(N-NearPerfect)
     then NearPerfect := PerfectNumbers[i];
  WriteLn('Ближайшее совершенное число равно: ', NearPerfect);
end.

Опечатка была в коде.

[Serge_Bliznykov]

Опечатка была в коде.

там уже этих кодов, как депутатов в думе!

В данном месте кода пишет неверное выражение

если Вы про вариант с функцией, то там я скобочку закрывающую потерял.
попробуйте так:

function PerfectNumbers(ii : integer) : integer;
begin
 if ii = 1 then PerfectNumbers := 6
 else if ii = 2 then PerfectNumbers := 28
 else if ii = 3 then PerfectNumbers := 496
 else if ii = 4 then PerfectNumbers := 8128
 else if ii = 5 then PerfectNumbers := 33550336;
end;

var N: integer;
  i, NearPerfect : integer;
begin
  WriteLn('Введите ваше число:');
  Readln(n);
  NearPerfect := 6; {считаем, что ближайшее число равно 6}
  for i:=2 to 5 do
    if abs(N-PerfectNumbers(i))<abs(N-NearPerfect) then NearPerfect := PerfectNumbers(i);
  WriteLn('Ближайшее совершенное число равно: ', NearPerfect);
end.

[Руслан56]

Все работает. Спасибо большое за помощь!