Разработать программу, реализующую следующий функционал: 1.1. программа запрашивает у пользователя число от 1 до 10 (n). 1.2. программа проверяет введенное число на правильность: больше либо равно 1 и меньше либо равно 10. 1.3. если введенное число попадает в диапазон 1÷10, программа вычисляет произведение последовательности чисел от 1 до n , то есть n! («n факториал»). результат вычисления выдается в виде сообщения пользователю. 1.4. если введенное число не попадает в диапазон от 1 до 10 включительно, то программа выдает сообщение об ошибке и завершает свое выполнение.
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.