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

Program Circle;
var r,s,l:real;
begin
write('Введите радиус ');
read(r);
s:=Pi*sqr(r);
l:=Pi*r*2;
writeln('Площадь окружности = ',s,', а длина = ',l);                           
end.