2022 sector d0

2022/sector/d0/factorialul/fact.pas

@@ -0,0 +1,21 @@
+Program Factorial;
+var n, i : integer;
+    F : longint;
+    Intrare, Iesire : text;
+    label 1;
+begin
+   { Citirea datelor de intrare }
+   assign(Intrare, 'fact.in');
+   reset(Intrare);
+   readln(Intrare, n);
+   close(Intrare);
+   { Calcularea factorialului }
+   F:=1;
+   if n=0 then goto 1;
+   for i:=1 to n do F:=F*i;
+1: { Scrierea datelor de iesire }
+   assign(Iesire, 'fact.out');
+   rewrite(Iesire);
+   writeln(Iesire, F);
+   close(Iesire);
+end.