Question

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

Answer 1

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

Удачи:)

Answer 2

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