Question

Информатика. Помогите пожалуйста, все это решается с помощью программы паскаль абц.

Answer 1

Var d,l,pi: real;
begin
write ('d = '); read(d);
pi:=3.14;
l:=pi*d;
writeln ('L = ',l);
end.