Составить алгоритм нахождения площади круга и длины окружности по заданному радиусу. (l=2*3.14*r s=3.14*r*r)​

const p=3.14;

var S,L,R:real;

begin

write('Введите R=');read(R);

L:=2*p*R;

writeln('Длина=',L:0:3);

S:=p*sqr(R);

write('Площядь=',S:0:3);

readln

end.