В файле fact.in записано натуральное число (количество цифр от 1 до 200). Определить,…

Var i,o: text; n,k,res: integer; b: boolean; begin res: =1; b: =false; assign (i,'fact.in'); assign (o,'fact.out'); reset (i); rewrite (o); read (i,n); lose (i); for k: =1to n do begin res: =res*k; ifres=n then begin b: =true; write (o,'YES'); break; end; end; ifb=false then write (o,'NO'); close (o); end.