Составить программу вычисления длины окружности и площади круга по заданному радиусу.

Const
pi=3.14;
varr:double;
begin
read(r);
writeln('Dlina=',2*r*pi:5);
write('S=',pi*(r*r):5);
end.