Найти длину окружности, предварительно проверив корректность ввода исходных данных.

Вместо "введённые данные некорректны" можете поставить что угодно. C - длина окружности R - радиус окружности Язык програмирования: Паскаль Программа без цикла. var C,R:real; begin read(R); if R>=0 do begin C:=2*3.14* R; writeln(C); end; else write('введённые данные некорректны'); end.

Проверено на Паскале АВС   Program ALJSHVEC; uses crt; var   r:real; begin   writeln('*** alphaues is thinking... ***');   writeln('***          OK             ***');   writeln('Введите радиус');   write('R = ');   readln(r);   if r<0 then       writeln('Вы ввели отрицательное число!')     else       if r=0 then           writeln('Вы ввели R=0. Длина окуржности равна 0.')         else           writeln('Длина окуржности равна ',2*pi*r); end.