Дан радиус окружности.Найти длину и площадь круга — Pascal(Паскаль)

uses crt;
var r,l,s:real;
begin
clrscr;
write('Введите радиус окружности R=');
readln(r);
l:=2*pi*r;
s:=pi*r*r;
write('Длина окружности=',l:0:2,'  площадь круга=',s:0:2);
readln
end.