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

Pascal: 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;