Определить результат выполнения алгоритма при определенных значениях входных данных
1.
x=16, y=2
16.
x=16, y=6
2.
x=9, y=3
17.
x=16, y=7
3.
x=25, y=3
18.
x=36, y=1
4.
x=4, y=5
19.
x=64, y=3
5.
x=36, y=2
20.
x=81, y=1
6.
x=16, y=7
21.
x=81, y=4
7.
x=4, y=8
22.
x=49, y=9
8.
x=49, y=2
23.
x=100, y=2
9.
x=9, y=8
24.
x=64, y=7
10.
x=4, y=9
25.
x=36, y=8
11.
x=16, y=3
26.
x=25, y=6
12.
x=25, y=4
27.
x=25, y=7
13.
x=1, y=11
28.
x=16, y=4
14.
x=4, y=4
29.
x=4, y=12
15.
x=9, y=5
30.
x=4, y=13

Вот на С++:

#include <iostream>
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long double ld;
typedef long long lol;
typedef long int  li;#define mp          make_pair
#define F           first
#define S           second
#define sqr(a)      ( (a) * (a) )
#define pb          push_back
#define INF         999999999
#define ret(a)      cout << endl; system("pause"); return(a)
//#define ret(a)      return(a)using namespace std;int main()
{
    ld x;
    cin >> x;
    x = ( 8 / sqrt( x ) ) + sqrt(x);
    cout << x;
    ret(0);
}

Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
  writeln('Введите строны первого треугольника: ');
  read(a1, b1, c1);
  writeln('Введите стороны второго треугольника: ');
  read(a2, b2, c2);
  p1 := (a1 + b1 + c1) / 2;
  p2 := (a2 + b2 + c2) / 2;
  s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
  s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
  if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
                                           else writeln('Неравновеликие');
end.