Найти длину окружности l и площадь круга s заданного радиуса r: l = 2·π·r, s = π·rв квадрате в качестве значения π использовать 3.14. в pascalabc

Var l,s,p,r:real;
begin
writeln('Введите радиус');
read(r);
p:=3.14;
l:=2*p*r;
s:=p*sqr(r);
write('Длина окружности равна ',l,' так же площадь круга равна ',s);
end.