Не могу разобраться

[Rammstalex]

Обьясните пожалуйста что делает эта программа, пожалуйста подробнее, если нетрудно:


Код Pascal



var
max: byte;
xf, yf: longint;
k: longint;

procedure c(x, y, step: shortint);
begin
if abs(x - xf) + abs(y - yf) <= max - step then
if (x = xf) and (y = yf) and (step = max) then begin inc(k); exit; end else
begin
c(x + 1, y, step + 1);
c(x - 1, y, step + 1);
c(x, y + 1, step + 1);
c(x, y - 1, step + 1);
end;
end;

begin
readln(max);
readln(xf, yf);
c(0, 0, 0);
if k <> 0 then writeln(k) else writeln('Impossible');
end.

[Rammstalex]

Вроде бы здесь что-то про робота

[Rammstalex]

*тему в шапку*