Create Task 4.pas

find width and circumference of a round shape