Введите три числа с клавиатуры, смените цвет фона экрана и выведите числа в центре экрана, причем красным цветом кратным четырем,синим цветом-кратным четырем и десяти, желтым цветом-не кратный ни четырем, ни десяти — Pascal(Паскаль)

program laba42;
uses
  crt;
var
  a,b,c:integer;

procedure ChangeColor(a:integer);
begin
  if (a mod 4=0) and (a mod 10 =0) then
    TextColor(1)
  else
    if a mod 4 =0 then
      TextColor(4)
    else
      if (a mod 4<>0) and (a mod 10<>0) then
        TextColor(14)
      else
        TextColor(0);
end;

begin
  TextBackGround(10);
  clrscr;
  writeln('Enter 3 num.');
  ReadLn(a,b,c);
  clrscr;
  GotoXY(38,12);
  ChangeColor(a);
  write(a,' ');
  ChangeColor(b);
  write(b,' ');
  ChangeColor(c);
  write(c)
end.