program Snowman;

uses GraphABC;

var
circles: integer;
x, y, r: integer;

begin
SetWindowSize(800, 800);
SetWindowCaption('Snowman');

circles := StrToInt(ReadLn('Enter the number of circles: '));

x := WindowWidth div 2;
y := WindowHeight - 100;

for var i := 1 to circles do
begin
r := 50 + i 20;
Circle(x, y - r, r);
y := y - 2 r;
end;

Circle(x, y + 20, 20);
Circle(x - 20, y + 35, 5);
Circle(x + 20, y + 35, 5);
end.