Вопрос Можно ли более просто написать эту программу? Pascal ABC

Можно ли написать в более сжатом виде программу в Pascal ABC?
И как сделать что бы он автоматический выгружал всё в txt файл?

Program First;
const
A=1;
B=2;
C=3;
D=4;
begin
writeln(a);
writeln(b);
writeln(c);
writeln(d);
writeln(a,a);
writeln(a,b);
writeln(a,c);
writeln(a,d);
writeln(b,a);
writeln(b,b);
writeln(b,c);
writeln(b,d);
writeln(c,a);
writeln(c,b);
writeln(c,c);
writeln(c,d);
writeln(d,a);
writeln(d,b);
writeln(d,c);
writeln(d,d);
end.