Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. - Pascal ABC

Формулировка задачи:

Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал.

                    Листинг программы
                
 
                        
                          
                    
program cubes;
uses crt;
var x,x1,x2,x3,x0,y,z,k,n:integer;
s:string; f,g:text;
begin
assign(f,'cubes.dat');
reset(f);
readln(f,y);
close(f) ;
x3:=8;
x1:=sqr(y-2)*6;
x0:=(sqr(y-2))*(y-2);
x2:=(y-2)*4*2+(y-2)*4;
assign(g,'cubes.sol');
rewrite(g);
writeln(g,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3);
close(g);
end.

Решение задачи: «Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней.»

Листинг программы

var n,x1,x2,x3,x0:integer;
    f:text;
begin
assign(f,'cubes.in');//текстовый файл в папке с программой, где записано 1 число N
reset(f);
read(f,n);
close(f) ;
x3:=8;
x1:=sqr(n-2)*6;
x0:=sqr(n-2)*(n-2);
x2:=(n-2)*4*2+(n-2)*4;
assign(f,'cubes.out'); //файл результатов
rewrite(f);
writeln(f,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3);
close(f);
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные n, x1, x2, x3, x0 типа integer.
Задает текстовому файлу cubes.in значение 1, что предположительно является количеством граней куба.
Считывает значение из файла cubes.in и сохраняет его в переменной n.
Вычисляет значения x1, x2, x3 и x0, которые представляют собой количество граней куба с определенным количеством окрашенных сторон.
Записывает результаты в текстовый файл cubes.out.
Перезаписывает файл cubes.out с результатами.
Выводит результаты в консоль в формате 0/, за которым следуют значения x0, 1/, за которым следует значение x1, 2/, за которым следует значение x2, 3/, за которым следует значение x3.
Закрывает файлы cubes.in и cubes.out.