uses graph;
{$I graafika.pas}
var
f: text;
m, n, v, a: integer;
p, w, r, s: string;

begin
assign(f, 'yl1.dat');
reset(f);
kaivitagraafika;
while not eof(f) do
begin
readln(f,s);
r:=copy(s, 1, 3);
val(r, m, a);
w:=copy(s, 6, 3);
val(w, n, a);
p:=copy(s, 11, 2);
val(p, v, a);
circle(m, n, v);
end;
readln;
close(f);
closegraph;
end.