Question

Дан диаметр окружности d. Найти ее длину L = π·d. В качестве
значения π использовать 3.14

Answer 1

program vld;

Const

PI = 3.14;

var

 d,l : real;

 begin

 readln(d);

 l := PI * d;

 writeln(l);

 end.