Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. (программа Паскаль)

1.    program krug;
2.    var
3.    l,s,r:real;
4.    const
5.    p=3.14;
6.    begin
7.    writeln('введите радиус');
8.    readln(r);
9.    s:=p*r*r;
10.    l:=2*p*r;
11.    writeln('площадь равна = ',s,' длина равна = ',l);
12.    readln;
13.    end.