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

 1)Ввести радиус окружности 
2)Проверит, елси раиду 0 либо меньше нуля окончить работу

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

const pi=3,14;

var p,r:real;

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

readln(r);

if (rlt;0) then writeln('error') else

 p:=2*pi*r;

writeln(p);

readln;

end;