Решить на паскале дано число найти сумму первой и последней цифры числа. вывести их разным цветом

Var
a,a1,d:llongint;
begin
readln(a);
a1:=a div 10000;
d:=a mod 10;
writeln(a1);
writeln(b);
end.
Правда не знаю как вывести их разным цветом