Turbo pascal "if", "for", "case"

[Beatrix Kiddo 103]

Witam. Mógłby ktoś pomóc : muszę zrobić potegowanie i silnie z użyciem 3 funkcji ,: if, for, case.

Zrobiłem silnie z if, potega mi nie idzie. Wyskakuje compilation aborted, pomoże ktoś, może ktoś to już miał. Bardzo byłbym wdzięczny.

 

var i, potega, wynik, liczba : Integer;

 

begin

WriteLn('Jaka liczba: ');

ReadLn(liczba);

 

WriteLn('Jaka potega: ');

ReadLn(potega);

 

wynik := 1;

 

for i:=1 to potega do

wynik := wynik * liczba;

 

WriteLn('Wynikiem ',liczba,' do potegi ',potega,' jest ', wynik);

 

end.

[kamil_shadow 0]

Znalazłem takie coś. Poprzerabiaj jak coś jest źle.

 

 

Program Potegowanie;
{$N+} {Oto ta dyrektywa}
Uses Crt;
Var x : Integer; {Podstawa}
    y : Integer; {Potega}
 Wynik: Extended;
    i : Integer;

Begin

  Clrscr;
   Write('Podaj podstawę potęgi x = ');
    Readln(x);
   Write('Podaj potęgę y = ');
    Readln(y);

   Wynik:=1;

   For i:=1 To y Do Wynik:=Wynik*x; {Tutaj odbywa się potęgowanie}

   Writeln('Oto wynik ',x,'^',y,' = ',Wynik:0:0);

 Repeat Until Keypressed;
End.

Edit: Sprawdziałem i działa ;p

Edit2: musisz użyć w tym funkcje "case" ??

Jeżeli byś w jednym programie dał silnie i potęgowanie wtedy można by wykrozystać "case".