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

На языке Питон

Вуаля:

program okrujnost;

const PI=22/7;

var d, l:real;

begin

writeln ('Vvedite diametr');

readln (d);

l:=PI*d;

writeln ('Dlina okrujnosti - ', l:8:3);

end.

program okrujnost;

var a, b:real;

begin

writeln ('Vvedite 1-oe chislo'); readln (a);

writeln ('Vvedite 2-oe chislo'); readln (b);

if a