Программа нахождения площади прямоуголника , программа нахождения площади круга напишите , надо

На языке pascal: 1: var a,b,s: integer; begin writeln('vvedite dliny storon: '); readln(a,b); s: =a*b; writeln('ploshad pryamougolnika = ',s); end. 2. var s,r: real; begin writeln('vvedite r kruga: '); readln(r); s: =pi*sqr(r); writeln('ploshad kruga = ',  s); end.

1)

#include <iostream>

#include <vector>

using namespace std;

int main(){

   srand(time(NULL));

   int n;

   cin >> n;

   vector<int> a(n);

   for(auto &i : a)

       i = rand() % 1001 - 500;

   pair<int,int> k1,k2;

   k1 = k2 = {-1e9,-1};

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

       if(a[i] > k1.first){

           k2 = k1;

           k1 = {a[i],i+1};

       }

       else if(a[i] > k2.first)

           k2 = {a[i],i+1};

   }

   cout << k1.second << " " << k2.second;

}

2)

#include <iostream>

#include <vector>

using namespace std;

int main(){

   int n;

   cin >> n;

   vector<int> a(n);

   for(auto &i : a)

       cin >> i;

   int cnt = 1, mx = a[0];

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

       if(a[i] == mx)

           cnt++;

       else if(a[i] > mx){

           cnt = 1;

           mx = a[i];

       }

   }

   cout << cnt;

}

Var   p: longint;   k, m, n, i: integer; begin   write('введите целое четырехзначное число: ');   readln(n);   n : = abs(n); { вдруг отрицательное введут? }   p : = 1;   for i : = 1 to 4 do   begin       m : = n mod 10;       n : = n div 10;       p : = p * m   end;   writeln('произведение цифр в числе равно ', p); end. тестовое решение: введите целое четырехзначное число: 1234 произведение цифр в числе равно 24