Паскаль в центре окна (640х400) нарисовать окружность радиусом 40 и закрасить её красным цветом

Program circle;
uses graphabc;
var   
        x:integer = 640;   
        y:integer = 400;   
        r:integer = 40;    
begin   

setwindowsize(x,y);   
setpencolor(clblack);   
setpenwidth(3);   
DrawCircle(x div 2,y div 2, r);   
setbrushcolor(clred);   
FillCircle(x div 2,y div 2, r)
end.    

У той хозяйки, у которой 3 литра в 5-литровом бидоне: её молоко выльют 2 литра в пустой 2-литровый бидон и 1 литр первой хозяйке, у которой 5 литров в 6-литровом бидоне. Таким образом сейчас у второй хозяйки пустой бидон, а 2-литровый полный и у первой хозяйки полный. Теперь из 2-литрового выливаем второй хозяйке в 5-литровый бидон и у неё становится 2 литра молока. Теперь первая хозяйка наполнит из своего бидона снова 2-литровый и эти два литра выльют второй хозяйке. таким образом, у второй хозяйки 4 литра и у первой 4 литра

У той хозяйки, у которой 3 литра в 5-литровом бидоне: её молоко выльют 2 литра в пустой 2-литровый бидон и 1 литр первой хозяйке, у которой 5 литров в 6-литровом бидоне. Таким образом сейчас у второй хозяйки пустой бидон, а 2-литровый полный и у первой хозяйки полный. Теперь из 2-литрового выливаем второй хозяйке в 5-литровый бидон и у неё становится 2 литра молока. Теперь первая хозяйка наполнит из своего бидона снова 2-литровый и эти два литра выльют второй хозяйке. таким образом, у второй хозяйки 4 литра и у первой 4 литра