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

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