Прокомментировать код

 program abc;
uses crt;
var n,k:integer;
function s(i:integer):integer;
var r,j,t:integer;
begin
r:=0;
if i<0 then s:=0;
if (i=0) or (i=1) then s:=1;
if i>1 then for j:=i-1 downto i-k do begin
r:=r+s(j);
s:=r;
end;
end;
begin
write('введите длину поля ');
readln(n);
write('введите длину хода фишки ');
readln(k);
writeln('возможно путей ',s(n));
end.

program abc; //задаем название программы
uses crt;    //подключаем модуль
var n,k:integer; //описываем переменные
//---------------задаем функцию
function s(i:integer):integer; //имя ф-ции, и тип выводимых данных
var r,j,t:integer;  //описание переменных функции
begin//начало процедуры
r:=0;  //обнуляем r
if i<0 then s:=0; //если i<0, то s=0
if (i=0) or (i=1) then s:=1; //если i=0 или i=1, то s=1
if i>1 then for j:=i-1 downto i-k do begin //если i>1, то запускаем цикл от j=i-1, с шагом -1, до i-k
r:=r+s(j);      //присваиваем r=r+s(j)
s:=r;           //присваиваем s=r
end;    //конец цикла for
end;  //конец процедуры
//--------------
begin  //начало программы
write('введите длину поля '); //запрашиваем длину поля
readln(n);                  //считываем ее в переменную n
write('введите длину хода фишки '); //запрашиваем длину хода
readln(k);                  //считываем ее в переменную к
writeln('возможно путей ',s(n)); //выводим возможные пути, рассчитав их функцией s для длины поля n
end.  //конец