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