Надо объяснить принцип работы этого кода словами. Это PascalABC var n, i: integer; function fact(n: integer): integer; begin if n = 1 then fact:= 1 else fact:=fact(n-1)*n; end; begin for i:= 1 to 9 do if i mod 2 = 1 then writeln(fact(i)); end.

var n,i: integer; // объевляем переменные типа integer (целые числа)

function fact(n: integer): integer; // создаем функцию для нахождения факториала - которая принимает число (integer) и возвращает integer

begin // начало функции

if n = 1 then // проверка на то что число равно 1

fact:= 1 // если n=1, то факториал 1

else // если n не 1

fact:=fact(n-1)*n; // то ищем факториал рекурсивным

end; // конец функции

begin  // старт программы

for i:= 1 to 9 do  // цикл от 1 до 9

if i mod 2 = 1 then  // проверка числа на остаток

writeln(fact(i));  // пишем факториал

end. // конец программы