Дана длина окружности l. найти радиус и диаметр данной окружности из формулы l=2пr. формат вывода результата «если длина окружности равна то ее радиус равен » на паскаль абс

Program n_1;const pi = 3.14;varl,d,r:real;beginWrite('Введите длину окружности: ');readln(l);r:=l/(2*pi);d:=l/pi;Writeln('«Если длина окружности равна ',l,', то ее радиус равен ',r,'»');end.