помогите написать программу в паскале с помощью оператора ...

Viktor

var a,b,c:integer;beginwriteln('введите число и степень'); {здесь прост программа тебя спрашивает какие числа}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.