помогите написать программу в паскале с помощью оператора выбора (case ... of ... else) :

Напишите программу для вычисления степени введённого с клавиатуры числа. Степень в диапазоне 0 ... 9.

p. s: я начинающий в программировании, поэтому прошу попонятней написать.

var a, b, c:integer;

begin

writeln ('введите число и степень') ; {здесь прост программа тебя спрашивает какие числа}

read (a, b) ; {здесь программа читает их}

case b of {тут выполняется условие типа если b ... и идут сами степени}

0: writeln (1) ;

1: writeln (a) ; {здесь что программа выдаст если ты напишешь такую степень}

2: writeln (a*a) ;

3: writeln (a*a*a) ;

4: writeln (a*a*a*a) ;

5: writeln (a*a*a*a*a) ;

6: writeln (a*a*a*a*a*a) ;

7: writeln (a*a*a*a*a*a*a) ;

8: writeln (a*a*a*a*a*a*a*a) ;

9: writeln (a*a*a*a*a*a*a*a*a) ;

end;

end.