Составить метод и программку вычисления и отыскать длинну окружности

С++

incude lt;iostreamgt;

using namespace std;

int main()
  cout.precision(5);  \\кол-во символов в выводе (точность)
  double r;
  double pi = 3.14159265358979
  coutlt;lt;"Введите радиус "lt;lt; endl;
  cingt;gt;r;
  coutlt;lt;2*pi*rlt;lt;endl;
  return 0;


Паскаль

program pr;
uses crt;
var r, pi:real;

begin clrscr;
  pi:=3.141592653;
  writeln('Введите радиус ');
  readln(r);
  writeln((2*pi*r):10:5);
end;