//PascalABC.NET 3.2, старой версии нет, не могу проверить
begin
var a: BigInteger := 1;
for var i := 1 to ReadInteger do
a *= i;
write(a)
end.
Первичный был:
D:\Документы\Фото\2011\Весна
Дальше поднялся на три уровня вверх и оказался в D:\Документы дальше спустился в D:\Документы\Экзамены\Информатика. Вот полный путь
Для чого інженеру компютер