Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·R2 — Pascal(Паскаль)

program dlokr;
const pi = 3.14;
var l, s, r: real;
begin
    write('Введите значение R: ');
    readln(r);
    l := 2 * pi * r; s := pi * sqr(r);
    writeln('Длина окружности -- ', l);
    writeln('Площадь окружности -- ', s);
end.