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

Паскаль

с++#incude <iostream>using namespace std;int main(){  cout.precision(5);  \\кол-во символов в выводе (точность)  double r;  double pi = 3.14159265358979  cout<<"Введите радиус "<< endl;  cin>>r;  cout<<2*pi*r<<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;