Составить программу, решающую следующую : вычислить длину окружности l и площадь круга s одного и того же заданого радиусв r

Var r,L,S:real;
begin
read (r);
L:=2*3.14*r;
S:=4*3.14*r*r;
write('длина...=',L);
write('площадь...=',S);
End.