Дан диаметр окружности d. найти ее длину l=п*d. в качестве значения п использовать 3.14

Решение:

Delphi/Pascal

program Begin4;

var

d,L: Real;

begin

Write('Введите диаметр окружности : ');

Readln(d);

L:=3.14*d;

Writeln('Длина окружности равна: ', L);

end.