Question

помогите пж задание 4 и 5

Answer 1

var

   r : integer := 2; // радиус круга

   d : integer; // диаметр круга

   

begin

   d := r*2;

   writeln('диаметр круга равен ', d);

end.