program ristid;
uses graph;
const tegur=270.0;
procedure joonista_surnuaed (x, y, z:integer);
begin
line(400+round(x*tegur/z), 400-round(y*tegur/z),
 400+round(x*tegur/z), 400-round((y+200)*tegur/z));
line(400+round((x+20)*tegur/z), 400-round((y+165)*tegur/z),
 400+round((x-20)*tegur/z), 400-round((y+165)*tegur/z));
end;
var d, m, kaugus:integer;
begin
d:=detect; initgraph(d, m, '');
kaugus:=500;
while(kaugus<2000) do
begin
joonista_surnuaed(-300, 100, kaugus);
joonista_surnuaed(300, 100, kaugus);
joonista_surnuaed(-500, 100, kaugus);
kaugus:=kaugus+100;
end;
readln;
closegraph;
end.