Напишите программу , определяющую длину окружности по заданному с клавиатуры радиусу r . , котики, спасайте.

Const pi=3.14; var r,l  :   real; begin write('введите радиус = '); readln(r); l: =2*pi*r; writeln('длинна окружности = ',l); readln; end.

при автоматическом переводе могут возникнуть много проблем

в зависимости от контекста слова могут иметь разное значение перевод пословиц, поговорок и прочих стандартных словосочетаний может не существовать на другом языке или может быть передан не верно отрицательные предложения могут перейти в положительные игра слов часто непереводима недостаток информации одного текста не может быть восполнен. например в у глаголов нет родов, а в есть другая причина потери смысла электронный переводчик может не знать, как переводится слово или фраза, или не иметь всех вариантов перевода

Var   n,i,a: integer; begin   write('введите число ');   readln(n);   if n> =1 then begin  write('сумма нечётных чисел от 1 до ',n,' = ');                               for i: = 1 to n do                                 if ((i mod 2) < > 0) then a: =a+i;                               write(a);                     end else write('введено число меньше единицы'); end.