Решите задачу pascal

Пример:

Задача: Написать программу, которая вычисляет факториал заданного числа. Входные данные: Целое положительное число N. Выходные данные: Факториал числа N. Ограничения: N не может быть отрицательным. Логика решения: Факториал числа N - это произведение всех натуральных чисел от 1 до N.

Структура программы на Pascal обычно включает:

• Заголовок программы: Указывается имя программы.
• Секция описания переменных: Определяются типы и имена переменных, которые будут использоваться в программе.
• Секция операторов: Содержит последовательность операторов, выполняющих вычисления и манипуляции с данными.

Пример решения задачи о факториале:

program Factorial;
var
N, i, factorial: integer;
begin
writeln('Введите число N:');
readln(N);
if N < 0 then
writeln('Факториал не определен для отрицательных чисел')
else
begin
factorial := 1;
for i := 2 to N do
factorial := factorial * i;
writeln('Факториал числа ', N, ' равен ', factorial);
end;
end.