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. // конец программы
(если я правильно понял вопрос: все же не по-русски написано)