исправте -степень с действительным показателем

[viknik]

uses
SysUtils;

написать прогу. (в делфи) вычисления степени действительного числа а с целым показателем k/
// a^k=1 if k=0;
a*a^k-1 if k>0;
(a^k+1)/a if k<0
================

var a,x:real; k:real;
function stepin(a:real; k:real):real;
begin
if k > 0 then stepin:=stepin (a,k-1)*a;
if k < 0 then stepin:=stepin(a,k-1)/a;
if k = 0 then stepin:=1;
end;
begin
writeln ('Vvedit chuslo:');
readln(a);
writeln ('Vvedit stepin');
readln(k);
x:=stepin(a,k);
writeln('rezyltat = ',x:0:0);
readln;
end.

[TinMan]

1. Там, где k<0, замени - на +

2. Исправь формат вывода. Так, как у тебя написано, она будет округлять до целых. Сделай типа x:0:10

Это были ошибки. А теперь рекомендация..
3. Замени тип k с real на integer (в обоих местах). Раз оно целое по смыслу, оно должно быть целым по типу. А с действительным k у тебя могут быть трудности.