Составьте алгоритм решения задачи: Вычислите длину окружности, предварительно проверив корректность ввода исходных данных (радиуса)

1) Ввести радиус окружности

2) Проверит, елси раиду 0 или меньше нуля завершить работу

3) Иначе вычислить длину по формуле 2 пиR

const pi=3,14;

var p, r:real;

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

readln (r) ;

if (r<0) then writeln ('error') else

p:=2*pi*r;

writeln (p) ;

readln;

end;