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

Проверено на Паскале АВС

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.

Вместо "введённые данные некорректны" можете поставить что угодно.
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.