- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
program voynasharov;
uses crt, graphABC;
type shar = class
 col, x, y, r: integer;
 pm: byte;
 constructor Create (ccol, cx, cy, cr: integer);
  begin
  col:=ccol;
  x:=cx;
  y:=cy;
  r:=cr;
  end;
 procedure make;
  begin
  setbrushcolor (col);
  circle (x,y,r);
  end;
 procedure mov;
 begin
 pm:=random(5);
 case pm of
 1: x:=x+20;
 2: x:=x-20;
 3: y:=y-20;
 4: y:=y+20;
 end;
 end;
end;
var first, second:shar;
begin
 setwindowsize(1280,720);
 first:=shar.Create(666,550,400,60);
 second:=shar.Create(1488,740,300,60);
 first.make;
 second.make;
 repeat
 //clrscr;
 first.mov;
 second.mov;
 first.make;
 second.make;
 delay(50);
 until first.x=70;
end.