1) Программа для вычисления факториала числа n:

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

2) Программа для определения, является ли число простым:

program PrimeNumber;
var
num, i: integer;
isPrime: boolean;
begin
writeln('Введите число:');
readln(num);
isPrime := true;
if num < 2 then
isPrime := false
else
begin
for i := 2 to num div 2 do
begin
if (num mod i) = 0 then
begin
isPrime := false;
break;
end;
end;
end;
if isPrime then
writeln('Число ', num, ' является простым')
else
writeln('Число ', num, ' не является простым');
end.