Решить на турбо паскале желательно с использованием структуры case of пусть элементом круга является радиус(первый элемент),диаметр (второй элемент) и длина окружности( третий элемент). составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга.
1 : begin writeln('D= ', D, 'L= ', L, 'S= ', S); end;
2 : begin writeln('R= ', D/2, 'L= ', L, 'S= ', S); end;
3 : begin ...end;
else writeln('введено значение, не удовлетворяющее условию');;
end;