Написать программу для нахождения длины окружности и площади круга(паскаль)

Const p=3.14;
var l,r,s:real;
begin
write (' введи радиус');
l:=2*p*r;
writeln (' длина окружности =' , l);
s:=p*sqr(r);
writeln (' площадь круга =' , s);
end.