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

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.