Пожалуйста, нарисуйте что-нибудь в паскале АБС

Uses graphabc; const n=100; beginsetwindowsize (4*n,5*n); setpenwidth (3); line (n,2*n,n div 2,5*n); line (3*n,2*n,7*n div 2,5*n); circle (2*n,3*n div 2,3*n div 2); circle (7*n div 3,4*n div 3,n div 10); circle (13*n div 4,4*n div 3,n div 10); setbrushcolor (0); circle (7*n div 3-n div 20,4*n div 3,n div 50); circle (13*n div 4-n div 20,4*n div 3,n div 50); setpenwidth (4); line (n*19 div 10,5*n div 3,n*10 div 3,5*n div 3) end.