- 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
program sharokat;
uses crt, graphABC;
type shar = class
col, x, y, r: integer;
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;
end;
var my:shar;
begin
my:=shar.Create(666,100,100,60);
my.make;
end.