Как в паскале записать решить : найти площадь круга и длину окружности если дан радиус. в записи в паскале надо использовать оператор readln.

//Как в Паскале записать решить задачу: найти площадь круга
//и длину окружности если дан радиус.
//В записи в Паскале надо использовать оператор READLN.

var r,s,p  : real;
begin
  Writeln ('Введите радиус искомой окружности');
  Readln (r);
  p:=2*3.14*r;
  s:=3.14*sqr (r);
  Writeln ('Длина окружности находится по формуле p=2πr и равна ',p);
  Writeln ('Площадь круга находится по формуле S=π r^2 и равна ',s);
end.

#include <bits/stdc++.h>

using namespace std;

int a[2000005];

int main()

{

   long long n, sum = 0;

   cin >> n;

   vector <int> v;

   for (int i = 0; i < n; ++i) {

       cin >> a[i];

       if (i < n / 3)

           v.push_back (a[i]);

   }

   sort (v.begin (), v.end ());

   for (int i = 0; i < v.size (); ++i)

       cout << v[i] << " ";

   for (int i = n / 3; i < n; ++i)

       cout << a[i] << " ";

   cout << "\n";

   for(int i = n - n / 3; i < n; ++i) {

       if (a[i] > 0 && a[i] % 2 == 0)

           sum += a[i];

   }

   cout << sum;

   return 0;

}

Объяснение:

Вот код

Это как пример, если это сложно напишите комментарий под этим ответом)

Строим прямоугольник размером 8 метров на 6 метров с вершиной в начале координат. Для обеспечения точных построений вводим с клавиатуры числа 8, 6. Можно числа перечислить через точку с запятой — 8; 6. Введенные значения автоматически считываются после нажатия клавиши Enter.

Контролировать размеры построенного объекта можно с окна Размеры, расположенного в нижней части экрана в строке состояния. Превратим плоский прямоугольник в объёмный параллелепипед с инструмента Вдавить/Вытянуть (Push/Pull).

Помещаем инструмент Вдавить/Вытянуть на поверхность прямоугольника. Прямоугольник выделится точками. Зажимаем левую клавишу мыши, и тянем вверх по направлению вертикальной синей оси. Указываем с клавиатуры размер 3 (метра). Для подтверждения действия нажимаем клавишу Enter.

Объяснение: