program Fak = begin var i: integer; var n: integer; in(n); if (n<0) then out((-1)) else i:=1; while (i