Написать программу для вычисления длины и площади окружности если r=5,9.ввод с

const
p = 3.14;
r = 5.9;

var
s, l: real; // где s площадь круга, а l  длина окружности.

begin
cls;
s := p * r * r;
l := 2 * p * r;
writeln (Длина окружности данного радиуса одинакова , l, .);
writeln (Площадь круга данного радиуса одинакова , s, .);
end.