Написать программу для вычисления длины и площади окружности если 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.