Надо объяснить принцип работы этого кода словами. Это 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. // конец программы