Алгоритм Евклида

Задача 1.
Найти НОД двух натуральных чисел.

program NOD;
var m, n: integer;
Begin
write('m = ');
readln(m);
write('n = ');
readln(n);
while m<>n

Факториал числа

Задача 2.
Вычислить факториал натурального числа.

program factorial;
var n,f,r: integer;
begin
write('n = ');
readln(n);
f:=1;
r:=1;
while r<=n do
begin
f:=f*r;
r:=r+1;
end;
writeln('n! = ',f);
end.