Составить алгоритм и программу

Введите номер дня недели и выведите его название, используя черный цвет символов для рабочих дней и красный цвет для выходных дней.

Это если алгоритм выполнить дословно:

var
  f1, f2: Text;
  n: integer;

begin
  Assign(f1, 'input.txt'); Reset(f1);
  Assign(f2, 'output.txt'); Rewrite(f2);
  Readln(f1, n);
  if n < 0 then Writeln(f2, abs(n))
  else
  if n = 0 then Writeln(f2, 0)
  else Writeln(f2, sqr(n));
  Close(f1); Close(f2)
end.

А это, если учесть, что модуль нуля равен нулю:

var
  f1, f2: Text;
  n: integer;

begin
  Assign(f1, 'input.txt'); Reset(f1);
  Assign(f2, 'output.txt'); Rewrite(f2);
  Readln(f1, n);
  if n <= 0 then Writeln(f2, abs(n))
  else Writeln(f2, sqr(n));
  Close(f1); Close(f2)
end.

Program qq;
var a, count2, count3: integer;
begin
  writeln('Введите число');
  readln(a);
  count2:=0;
  count3:=0;
  while a>0 do
  begin
    if a mod 10 = 2 then
      count2:=count2+1;
    if a mod 10 = 3 then
      count3:=count3+1;
    a:=a div 10;
  end;
  if count2>count3 then
    a:=count3
  else
    if count3>count2 then
      a:=count2
    else
      a:=count2;
  if a<>0 then
    while a>0 do
    begin
      writeln('Выведено число 23');
      a:=a-1;
    end
  else
    writeln('Нельзя получить число 23 из цифр введённого числа');
end.