Нарисовать снеговика.Количество кругов задаётся c клавиатуры. Pascal ABC

uses GraphABC;var n,y,r,i:integer;beginwrite('Количество кругов: ');readln(n);r:=10;y:=50;for i:=1 to n do  begin  brush.color:=clrandom;  circle(250,y,r);  r:=r+10;  y:=y+2*r-10  endend.