Вычислить площадь круга и длину окружности с радиусом r. pascal

Program n1;
var r: real;
begin
write('введите радиус: ');
readln(r);
writeln('длинна: ',r*2*pi);
writeln('площадь :',r*r*pi);
end.