Question

Составить программу, которая рисует 5 окружностей голубого цвета с центром в пункте (200, 200) и радиусами 30, 40, 50, 60, 70

Answer 1

Program Task;
Uses GraphABC;
Var i: Integer;
Begin
SetPenColor(Color.CornflowerBlue);
For i := 3 To 7 Do
DrawCircle(200, 200, i * 10);
End.