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

var pi, c, s, r : real; / / integer в данном случае неуместен, так как значения всех переменных в программе могут быть дробными числами.

begin

cls;

pi : = 3.14;

write ('Введите радиус данной окружности: ');

readln (r);

c : = 2 * pi * r;

s : = pi * r * r;

writeln ('Длина окружности равна ', c,'.');

writeln ('Площадь круга равна ', s,'.');

end.