(Паскаль) Определение элементарных свойств введеного числа.

var
        a,n,m:integer;
        b:boolean;
begin
while true do
 begin
  writeln('viberite deistvie:');
  readln(a);
  case a of
  1:
        begin
                writeln('vvedite chislo');
                readln(n);
        end;
  2:if n>=0 then writeln('>=0') else writeln('<');
  3:if (n mod 8) = 0 then writeln('kratno 8') else writeln('ne kratno 8');
  4:if n<1 then writeln('<') else writeln('>=1');
  5:begin
        m:=n;
        b:=true;
        while m>=3 do
                begin
                        if m mod 3 <> 0 then begin b:=false; break;end
                        else
                                begin
                                        m:= m div 3;
                                end;
                end;
        if m<>1 then b:=false;
        if b then writeln('stepen 3') else writeln('ne stepen 3');
    end;
  6:break;
  end;
 end;
end.

if (n mod 10) in [3,9,7,1] then writeln('stepen 3') else writeln('ne stepen 3');