#include <conio.h> // или #include <conio2.h> если в MinGW, но     
// надо ставить дополнительную библиотеку - Conio2    
/**    
    * Clears whole screen.    
    */    
void clrscr (void);

program Project1;
{$APPTYPE CONSOLE}
uses
    Windows;
{$R *.RES}
var
    sbi: TConsoleScreenBufferInfo;
    i: integer;
begin
    Writeln('A Console Applicaiton');
    Writeln('Press Enter To Clear The Screen');
    GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
      sbi);
    Readln;
    GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
      sbi);
    for i := 0 to sbi.dwSize.y do
      writeln;
    Writeln('Press Enter To End');
    Readln;
end.

#include <stdio.h>
#include <conio.h> //Необходимые библиотеки

textbackground(GREEN); //Цвет фона.
textcolor(RED); //Цвет текста.
clrscr(); //Очищаем экран (Не обязательно!)

clrscr();
textbackground(GREEN);
textcolor(RED);
window(30,10,50,10); //Вот и она.
clrscr();

#include <iostream.h>
#include <conio.h>
#include <stdio.h>
int main()
{ float z,;
clrscr();
textbackground(GREEN);
textcolor(RED); //Тут меняем как надо.
window(30,10,50,10); //Положение экрана!
clrscr();
cout<<"\Hello World!";
getch();
textbackground(BLACK);
textcolor(LIGHTGRAY); //Все возвращаем обратно. По умолчанию так и есть.
clrscr();
}

randomize();
a = rand()/3276 //В a сгенерится любое число от 0 до 9.
a=random(50); //Или вот так число от 0 до 49.

setlocale(LC_ALL, "rus");