Question

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

Answer 1

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

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