Курсовая работа. / РЯП_Ксю / Our_compiler / Examples / Factorial

program factorial;
var x,fact,i:integer;
begin
   x:=5;
   if (x>0) then
   begin
      i:=1;
      repeat
         fact:=fact*i;
         i:=i+1;
      until i>x;
   end
   else
      if (x=0) then
         fact:=1
      else
         fact:=0;
   write('Factorial(',x,') = ',fact);
end.