Чай, конфеты, мармелад, печенье, желе, шоколадный фонтан...
// PascalABC.NET 3.0, сборка 1076
function ak(n,m:integer):longint;
begin
if n=0 then ak:=m+1
else
if m=0 then ak:=ak(n-1,1)
else ak:=ak(n-1,ak(n,m-1))
end;
begin
Writeln('A(3,3)=',ak(3,3))
end.
<em><u>Тестовое решение:</u></em>
A(3,3)=61
А(4,1) - вызывает аварийное завершение программы по переполнению стека из-за большой глубины рекурсии.
Var A:
integer;
begin
writeln('введите двузначное число');
readln(A);
writeln ((A div 10)*100+(A mod 10));
writeln (A*10);
writeln ((A mod 10)*100+(A div 10));
writeln (((A mod 10)*10+(A div 10))*10);
<span>end.</span>
изначальное положение: взгляд на восток, нижний левый угол. поворот на 90 градусов против часовой стрелки