===== PascalABC.NET =====
begin
WriteAllText('File2.txt',
(integer.Parse(ReadAllText('File1.txt')) div 3).ToString)
end.
Объяснение:
Текстовый файл File1.txt содержит запись целого числа.
ReadAllText('File1.txt') считывает сдержимое файла в символьную строку,
integer.Parse( ) выделяет из нее целое целое число, div 3 выполняет деление на 3, результат при помощи ToString преобразуется к строке, на основе которой WriteAllText('File2.txt'( ) создает текстовый файл File2.txt.
Файлы должны находиться в той же папке, что и исходный текст программы, либо надо в именах явно указывать полный путь.