Помогите прошу!
Составить алгоритм,блок схему и программу к задаче
Вычислить меньшее из 2 введённых чисел и возвести его в степень большего.

var a,b,c,d:integer;beginwriteln('введите первое число');readln(a);writeln('введите второе число');readln(b);c:=a;d:=b;if a<b thenwhile b<>1 dobegina:=c*a;b:=b-1;writeln(a);endelsewhile a<>1 dobeginb:=d*b;a:=a-1;writeln(b);end;end.1. запрашиваем первое число2. получаем первое число3. запрашиваем второе число4. получаем второе число5. приравниваем первое число  некоторой переменной.6. приравниваем второе число  некоторой переменной.7. если первое число больше второго то вычитаем из второго числа 1 и при каждом вычитании приравниваем первое число к произведению первого числа на переменную к которой его приравняли. выводим результат на экран.8. если второе число больше первого то вычитаем из первого числа 1 и при каждом вычитании приравниваем второе число к произведению второго числа на переменную к которой его приравняли.  выводим результат на экран.