Kwwiker

Untitled

Oct 6th, 2020
132
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var N,i,count: integer;
  2. begin
  3.     readln(N);
  4.     i:=1;
  5.     count:=1;
  6.     while i <= N do
  7.     begin
  8.         count:=count*i;
  9.         i:=i+1;
  10.     end;
  11.     writeln(count);
  12. end.
RAW Paste Data