Написать код на паскале

 program FactorialCalculator; 
 
var 
  n: integer; 
  result: integer; 
 
function Factorial(x: integer): integer; 
begin 
  if x = 0 then 
    Factorial := 1 
  else 
    Factorial := x * Factorial(x - 1); 
end; 
 
begin 
  writeln('Введите число для вычисления факториала:'); 
  readln(n); 
 
  if n < 0 then 
    writeln('Факториал отрицательного числа не определен.') 
  else 
  begin 
    result := Factorial(n); 
    writeln('Факториал числа ', n, ' равен ', result); 
  end; 
end. 

Вот пример полезного кода на Паскале, который реализует программу для вычисления факториала числа. Этот код может быть полезен для изучения рекурсии и работы с целыми числами.