Информатика: Помогите пожалуйста написать алгоритм на Паскале

Фигуры:
Круг == circle( $x,y,R$ );
Прямоугольник == rectangle( $x_1,y_1,x_2,y_2$ );
Линия == line( $x_1,y_1,x_2,y_2$ );

Программа:
[в приложении]

Помогите пожалуйста написать алгоритм ** Паскале