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

Program round;

const pi = 3.14;
var R, S, l: real;

Begin
Write ('Введите радиус');
Read(R);
S := pi * sqr(R);
l := 2 * pi * R;
Writeln('Площадь круга ', S);
Writeln('Длина окружности ', l);
end.