Графика: Создать графическое окно соответствующее размеру мишени и отобразить само попадание.

uses  graphABC; 
 
procedure KeyDown(key: integer);
begin
  Window.Close;
end;  
   
var n,i,r1,r2:integer;
    xc,yc,x,y,r:integer;
    a:real;
begin
  n:=5;
  write('Количество выстрелов:');
  readln(n);
  TextOut(150,0,Format('{0}',n));
  xc:=Window.Width div 2;
  yc:=Window.Height div 2;
  r1:=yc-10;
  r2:=round(r1*45/115);
  SetBrushColor(clBlack);
  Ellipse(xc-r1,yc-r1,xc+r1,yc+r1);
  SetPenColor(clWhite);
  Ellipse(xc-r2,yc-r2,xc+r2,yc+r2);
  SetBrushColor(clWhite);
  randomize;
  for i:=1 to n do
  begin
    r:=random(r1-3);
    a:=random(360)*Pi/180;
    x:=xc+round(r*cos(a));
    y:=yc-round(r*sin(a));
    Ellipse(x-3,y-3,x+3,y+3);
    Sleep(150);
  end;
  OnKeyDown:=KeyDown;
end.

uses graphABC;
const n=5;
var a:array[1..n] of integer;
    b,r:integer;
    x,y,i:integer;
begin
//создаем окно размером с мишень(размеры увеличены в 4 раза)
setwindowsize(452,124);
centerwindow;
b:=62;//координата Y
r:=23;//радиус тарелочек
//рисуем мишень
setbrushcolor(clBlack);
for i:=1 to n do
 begin
  a[i]:=62+(i-1)*(2*r+36);
  circle(a[i],b,r);
 end;
//стреляем 5 раз
for i:=1 to n do
 begin
  x:=a[i]-r+random(2*r+1);
  y:=b-r+random(2*r+1);
  if sqr(x-a[i])+sqr(y-b)<=r*r then  //попали
   begin
    setbrushcolor(clWhite);
    circle(x,y,3);
    sleep(500);
    circle(a[i],b,r);
   end
  else  //не попали
   begin
    setbrushcolor(clBlack);
    circle(x,y,3);
   end;
  sleep(500);
 end;
 
  
end.