Мне нужно написать программу калькулятор с функцией нахождения факториала числа

Program fact;
uses crt;
var n,i,s:integer;
beginS:=1;
write(Введите число - );
readln(n);
If n<=0 then
write(Ваше число либо отрицательное, либо равно нулю. Факториал 0!=1)
else begin
for i:=1 to n do
S:=s*i;
write(Факториал Вашего числа равен - ,s);
end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.