ошибка в арифметике

[Figushkin]

uses
    crt;
var
    a,b:word;
    n:byte;
    p:extended;
    k:byte;
begin
    clrscr;
    write('VVedite osnovanie(> maxInt = 32767): ');
    readln(a);
    write('VVedite stepen'' n(n > 10): ');
    readln(n);
    b:=a;
    p:=1.0;  Error 116: Must be in 8087 mode to compile this.
    k:=n;
    while(k>0) do
    begin
        if(k mod 2=0) then
        begin
            k:=round(k/2);
            b:=b*b;
        end
        else
        begin
            k:=k-1;
            p:=p*b;
        end;
    end;
    writeln('Otvet is: ', p:10:10);
    readln;
end.

From Stilet: Что текст ошибки привести не судьба?

[Serge_Bliznykov]

p:=1.0; Error 116: Must be in 8087 mode to compile this.

главное меню программы - Options - Compiler...
поставьте "птички" на 8087/80287 (ну и на Emulation тоже не помешает)