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