Графика

uses crt,graph;
var
x,y,dx,dy,gd,gm:integer;
ch:char;
begin
gd:=detect;
initgraph (gd,gm,'bgi');
x:=320;y:=240;
repeat
ch:=readkey;
if ch=#0 then begin
ch:=readkey;
begin
setfillstyle (1,black);
fillellipse (x,y,10,10);
setcolor (black);
setfillstyle (1,red);
fillellipse (x,y,10,10);
end;
case ch of
#80:begin
x:=x+0;y:=y+1;
gotoxy (x,y);
end;
#72:begin
x:=x+0;y:=y+(-1);
gotoxy (x,y);
end;
#77:begin
x:=x+1;y:=y+0;
gotoxy (x,y);
end;
#75:begin
x:=x+(-1);y:=y+0;
gotoxy (x,y);
end;
end;
end;
until ch=#27;
end.

uses crt,graph;
var gd,gm:integer;
 
procedure MovePie;
var x,y,x1,y1:integer;
    k:char;
    move:boolean;
begin
x:=300;y:=240;
move:=true;
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#80 then
      begin
        y1:=y;
        x1:=x;
        y:=y+5;
        move:=true;
      end;
    if k=#72 then
      begin
        y1:=y;
        x1:=x;
        y:=y-5;
        move:=true;
      end;
    if k=#77 then
      begin
        y1:=y;
        x1:=x;
        x:=x+5;
        move:=true;
      end;
    if k=#75 then
      begin
        y1:=y;
        x1:=x;
        x:=x-5;
        move:=true;
      end;
  end;
if move then
  begin
   Setcolor(12);
   PieSlice(x1,y1,60,120,50);
   setfillstyle(1,12);
   floodfill(x1,y1-5,12);
   cleardevice;
   PieSlice(x,y,60,120,50);
   setfillstyle(1,12);
   floodfill(x,y-5,12);
   move:=false;
  end;
until k=#27;
end;
begin
gd:=detect;
Initgraph(gd,gm,'');
OutTextXY(200,20,'Uprawlenye strelkami,  Vyhod-Esc');
OutTextXY(250,50,'Press Enter...');
readln;
MovePie;
closegraph
end.