Помогите составить программу в паскале

[Саша91-09]

Нужно составить программу вычисления факториала. С помощью подпрограммы.
Вычислить:12!,17!,32!


пожалуйста помогите!!! А то у меня ни как не получвется

[Last]

program ffff;
 uses crt;
 var
  n:real;
function faktorial(n:real):real;
begin
 if n=1 then faktorial:=1 else
  faktorial:=faktorial(n-1)*n;
end;

begin
 clrscr;
 readln(n);
 writeln(faktorial(n):4:2);
 readkey;
end.

[Саша91-09]

Спасибо)))

[Last]

нажимай на кнопочку с весами...

[Xatr]

А без рекурсии нельзя? (риторический вопрос, на него отвечать не нужно)

[just just]

помогите пожалуйста!
Напечатайте таблицу значений функции y = 1/x2 при изменении x от -10 до 10 с шагом 0,5. все данные расположите в несколько столбцов так, чтобы они были видны на экране. помогите срочно до понедельника!