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

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