Учитель информатики, профессор, бухгалтер, Специалисты, которые занимаются разработкой сетевых программ, программист-сетевик, операционщик, разработчик операционных систем или операционщик, Программисты. Больше не знаю.
Var fa,i,n:integer;beginReadln(n);fa:=1;while fa < n do begini:=i + 1;fa:= fa * i;write(fa:4);end;writeln;write(i-1);end.