процедуры и функции модуля CRT

[ВалерОК]

Постройте два окна (цветами Blue и Green) и подпишите их
'ЧЕТНЫЕ', НЕЧЕТНЫЕ1 желтым цветом. С клавиатуры в цикле в строке 25 вводите цифры от 1 до 9. Если число четное, выводите его цветом LightRed в окно с надписью 'ЧЕТНЫЕ' и т.д.(тока надо все это сделать через CRT в паскале)

[arrowsf1]

textbackground (7);
    clrscr;
textcolor (14)
gotoxy (40,22);

сказка детская 100 рублей

писать ????????????????

[arrowsf1]

ТАК?????????????????????

[arrowsf1]

uses crt;
var i,j,k:integer;
begin
textbackground(0);
clrscr;

for i:=10 to 30 do begin
for j:=2 to 15 do begin
gotoxy(i,j);textbackground (2);write(' ');
gotoxy(i+30,j);textbackground (1);write(' ');
end;
end;
textcolor(15);
gotoxy(10,2);textbackground (2);write(' Chetnii');
gotoxy(40,2);textbackground (1);write(' Nechetnii');i:=0;j:=0;k:=0;
while (k>-1)and(k<10)do begin
textbackground(0);
gotoxy(1,24);write('VVEDITE CHISLO:');read(k);
if (k mod 2)=0 then begin
i:=i+1;
gotoxy(10,2+i);textbackground (2);write(k);
end else begin
j:=j+1;
gotoxy(40,2+j);textbackground (1);write(k);
end;
end;
end.

с тебя 100 рублей пиши на ящик в подписи напишу куда переводить
Пс
выход из проги- набор числа меньше 0 или больше 9