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

 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;