uses GraphABC;
var c:color;
a:integer;
name:string;

procedure KeyDown(key:integer);
begin
  if key=vk_r then begin setpencolor(clgreen);setbrushcolor(clgreen);c:=clgreen; end;
  if key=vk_q then begin setpencolor(clwhite);setbrushcolor(clwhite);c:=clwhite;end;
  if key=vk_w then begin setpencolor(clblack);setbrushcolor(clblack);c:=clblack;end;
  if key=vk_e then begin setpencolor(clred);setbrushcolor(clred);c:=clred;end;
  if key=vk_t then begin setpencolor(clblue);setbrushcolor(clblue);c:=clblue;end;
  if key=vk_y then begin setpencolor(clyellow);setbrushcolor(clyellow);c:=clyellow;end;
end;

Procedure MouseDown(x,y,mb:integer);
begin
  MoveTo(x,y);
end;

Procedure MouseMove(x,y,mb:integer);
begin
  if mb=1 then begin circle(x,y,15);end;
  if mb=2 then begin floodfill(x,y,c);end;
end;

begin
setwindowsize(600,600);
OnMouseDown := MouseDown;
OnMouseMove := MouseMove;
OnkeyDown := KeyDown;
end.