Помогите составить программу!очень надо !буду благодарен !№2,3,4,5 кто что сможет!!заранее огромное спасибо

В 5 для получения градусов нужно умножить проценты на 3.6

2. uses GraphABC;beginPie(100, 50, 70, 270, 360);end.3. uses GraphABC;beginDraw(x -> 2 * cos(x), -pi, pi);end.4. uses GraphABC;beginDraw(x -> cos(x), -10, 10);Draw(x -> sin(x), -8, 8);end.5. uses GraphABC;beginBrush.Color := clRandom;  Pie(200, 200, 100, 0, 170);  Brush.Color := clRandom;  Pie(200, 200, 100, 170, 270);  Brush.Color := clRandom;  Pie(200, 200, 100, 270, 300);  Brush.Color := clRandom;  Pie(200, 200, 100, 300, 330);  Brush.Color := clRandom;  Pie(200, 200, 100, 320, 333);  Brush.Color := clRandom;  Pie(200, 200, 100, 333, 360);end.С цветами, думаю, сам разберешься