Напишите на паскале программу, вычисляющую длину окружности, площадь круга одного и того же радиуса по формулам: c =

var pi, c, s, r : real; // integer в данном случае неуместен, так как значения всех переменных в программе могут быть дробными числами.begincls;pi := 3.14;write (\'Введите радиус данной окружности: \');readln (r);c := 2 * pi * r;s := pi * r * r;writeln(\'Длина окружности равна \', c,\'.\');writeln(\'Площадь круга равна \', s,\'.\');end.