решить по языку Pascal

Question

решить по языку Pascal

---

Answer 1

Const
  pi = 3.14;
var
  d : Real;
begin
    Write('d: ');
    Readln(d);
    
    Write(Pi * d:0:3);
    Readln;
end.

Answer 2

Const Pi = 3.14;
var d: Real;
begin
    writeln('Введите диаметр');
    readln(d);
    writeln('Длина = ', 2*Pi*d/2);
end.

Удачи:)