program ris; {название программы, без него никуда}
uses crt,graph,graph256; {подключаем нужные библиотеки}
var x,i,y:integer;w:word;c:char;p:pointer{переменные}    
begin
graphic256;{используем библиотеку цвета}    
setcolor(номер цвета, например 10)    
(сдесь вся остальная программа)    

waitgraph; {по нажатию на любую клавишу}
closegraph;    
end.{конец программы}

program ris; {название программы, без него никуда}   
uses crt,graph,graph256; {подключаем нужные библиотеки}   
var x,i,y:integer;w:word;c:char;p:pointer{переменные}     
begin   
     graphic256;{используем библиотеку цвета}     
     setcolor(номер цвета, например 10);
{место x y в следущих командах ставте расположение их на икране, в паскале несмотря какой у вас монитор обём поля 640 на 480}     
     circle(x,y,радиус);{нарисовать кружок}
     rectangle(x,y,x1,y1);{нарисовать незакрашенный прямоугольник.закрашенные это bar только для него надо не setcolor(1); а setfillstyle(стиль,цвет);}
     line(x,y,x1,y1);{нарисовать линия}
floodfill(x,y,цвет){цвет это стенки внутренности, floodfill закрашевайт любую внутренность только надо укозать любую точку внутренности если не так указать весь икран закрасит.внимания для floodfill тоже надо setfillstyle(стиль,цвет);}

waitgraph; {по нажатию на любую клавишу}   
closegraph;     
end.{конец программы}

PROGRAM RISNA;
USES CRT,GRAPH,GRAPH256,DOS;
VAR X,Y,I:INTEGER;P:POINTER;C:CHAR;H1,M1,S1,SS1,H2,M2,S2,SS2,W:WORD;{w:word нужно чтобы писать поруски или не поруски если этой переменной не Будет то всё время будет всё писаться по английски}
     STH,STM,STS,S:STRING;
     t:integer;
BEGIN
    GRAPHIC256;
    {ресуем обект}
    SETCOLOR(12);
    LINE(10,10,20,10);
    LINE(10,10,10,20);
    LINE(10,20,20,20);
    LINE(20,20,20,10);
    REMEMBERIMAGE(10,10,20,20,P);{запоминаем обект как p, выше в переменных он есть}
    CLEARDEVICE;{Эта команда стирает всё}
    line(0,0,0,480);
    line(0,0,640,0);
    line(640,480,640,0);
    line(0,479,640,479);
    X:=10;{устанавливаем значение x,y}
    Y:=10;
    GETTIME(H1,M1,S1,SS1);{устанавливаем начальное время}
    REPEAT{команда повтора}
    C:=READKEY;{устанавлеваем значение С на нажатие кнопок}
    WHILE NOT KEYPRESSED DO{пока не нажата клавиша}
    BEGIN
    GETTIME(H2,M2,S2,SS2);{вторичное время}
    T:=(H2-H1)*3600+(M2-M1)*60+S2-S1;{формула счёта времени от 0}
    PUTIMAGE(X,Y,P^,COPYPUT);{ресуем запомненный обект в х у}
    DELAY(800);
    CASE C OF{запоминаем ниже каждую клавишу в C и пишем управление квадратом}
    #72:BEGIN
    W:=GETPIXEL(X+5,Y-1);{проверяем кокого цвета точка квадрата}
    IF W=12 THEN BEGIN
    {дальше ставим то что происходит после того если точка евляется красным цветом}
    CLEARDEVICE;
    setcolor(10);
    GETTIME(H1,M1,S1,SS1);
    STR(T,S);
    SETTEXTstyle(0,0,3);
    OUTTEXTXY(50,50,'‚› вы провержались '+S+сек);
    readln;{по нажатию на интр}
    cleardevice;
    setcolor(12);
    line(0,0,0,480);
    line(0,0,640,0);
    line(640,480,640,0);
    line(0,479,640,479);
    x:=100;y:=100;
    delay(800);
    END;
    Y:=Y-1;
    END;
    #75:BEGIN
     W:=GETPIXEL(X-1,Y+5);
    IF W=12 THEN BEGIN
CLEARDEVICE;
setcolor(10);
   GETTIME(H1,M1,S1,SS1);
    STR(T,S);
    SETTEXTstyle(0,0,3);
    OUTTEXTXY(50,50,'‚› ЏђЋ„…ђ†Ђ‹€‘њ '+S+' ‘…Љ');
    readln;
     cleardevice;
      setcolor(12);
    line(0,0,0,480);
    line(0,0,640,0);
    line(640,480,640,0);
    line(0,479,640,479);
     x:=100;y:=100;
    delay(800);
    END;
    X:=X-1;
    END;

    #77:BEGIN
     W:=GETPIXEL(X+11,Y+5);
    IF W=12 THEN BEGIN
    CLEARDEVICE;
    setcolor(10);
      GETTIME(H1,M1,S1,SS1);
    STR(T,S);
    SETTEXTstyle(0,0,3);
    OUTTEXTXY(50,50,'‚› ЏђЋ„…ђ†Ђ‹€‘њ '+S+' ‘…Љ');
    readln;
     cleardevice;
      setcolor(12);
    line(0,0,0,480);
    line(0,0,640,0);
    line(640,480,640,0);
    line(0,479,640,479);
     x:=100;y:=100;
    delay(800);
    END;
    X:=X+1;
    END;
    #27:halt;
    #80:BEGIN
       W:=GETPIXEL(X+5,Y+11);
    IF W=12 THEN BEGIN
    CLEARDEVICE;
    setcolor(10);
      GETTIME(H1,M1,S1,SS1);
    STR(T,S);
    SETTEXTstyle(0,0,3);
    OUTTEXTXY(50,50,'‚› ЏђЋ„…ђ†Ђ‹€‘њ '+S+' ‘…Љ');
    readln;
    cleardevice;
     setcolor(12);
    line(0,0,0,480);
    line(0,0,640,0);
    line(640,480,640,0);
    line(0,479,640,479);
    x:=100;y:=100;
       delay(800);
    END;
    Y:=Y+1;
    END;
    END;
    END;
    UNTIL FALSE;
WAITGRAPH;
CLOSEGRAPH;
END.

program kraska;
begin
   textbackground(1); {Меняет цвет фона на синий. Синий 1 , Краснный 2, дальше не помню}
   textcolor(3);           {Меняет цвет текста на красный}
   writeln(' Mur stal cvetnoy!');  { Выводит текст красным цветом с синем фоном}
end.

program ris;  
uses crt,graph,graph256;  
var x,i,y:integer;w:word;c:char;p:pointer;{переменные}  
begin  
graphic256;  
setcolor(номер цвета, например 10)  
{рисуем и запоминаем обьект}
circle(x,y,радиус);
rememberimage(x,y,x1,y1,p);
cleardevice;
x:=100;
y:=100;
repeat
c:readkey;
while not keypressed do
begin
putimage(x,y,p^,copyput);
delay(800);
case c of
#75:x:=x-1;
#72:x:=x+1;
#77:y:=y-1;
#80:y:=y+1;
end;
end;
until false;
waitgraph;  
closegraph;  
end.