По аналогии с кнопками «+», «-» и др. написать код для кнопок х^у. запишите в visual !

program fibonacci; uses crt; var i, n: integer; {итерационный метод вычисления чисел фибоначчи}function fib_it(n: integer): integer; var a,b,c,i: integer; begin a: =1; b: =1; if (n=1) or (n=2) then fib_it: =1else begin            for i: =3 to n do                    begin                    c: =a+b                    a: =b;                   b: =c;                   end;         fib_it: =c;     end;  

end; {main program}begin    clrscr;     write('введите n: ');     readln(n);     for i: =1 to n do write(fib_it(i),' ');         readkey; end.

var a,b,c,s: integer;

begin

read(a);

read(b);

read(c);

s: =(a+b+c) mod 3       mod вробная часть от деления

end;

 

var post,bes: real;

begin

read(post);

bes: =post-100;       (кг)=(рост(см) - 100

end;

 

 

 

var m,n,k: integer;

begin

read(m);

read(n);

read(k);

o: =m*2+n*0+k*1

end;

 

 

 

 

var x: integer;

begin

read(x);

if x mod 2 =0 then write('чот') else write('нечет');

end;

 

 

 

var x: integer;

begin

read(x);

if x mod 10=7 then write('на конце 7') else write('не 7');

end;

 

 

 

///write(x) выводит значение переменой;