Простая прога в delphi 7

[Dies46]

Необходимо среди введеных M целых чисел распознать степени двойки(например 1,2,4,8,16)
Напишите решение пожалуйста буду очень очень благодарен

[Hacker19_90]

function GetStep(i: integer): boolean;
var
    ost: integer;
begin
    if i = 1 then Result := true
    else 
        if i > 0 then
        begin
            Result := true;  
            while (i <> 0) do
            begin
                 ost := (i mod 2);
                 i := (i div 2);
                 if ost <> 0 then
                 begin
                       Result := false;
                       break;
                 end;
            end;
        end
        else Result := false;
end;

?????

[Dies46]

Спасибо огромное.можете еще помочь что выносить на форму??

[Hacker19_90]

Сообщение от Dies46

Спасибо огромное.можете еще помочь что выносить на форму??

ЭЭЭ! В каком смысле?