Осуществить ввод последовательность целых чисел количестве не меньше 3, определить сколько из них больше из их соседей последовательность потенциальности не ограничено окончанием служит число 0​

#include < iostream> using namespace std; int a, b; void check(int a, int b); int main() {       cout< < "enter 2 numbers\n";       cin> > a;       cin> > b;       check(a, b);       system("pause");       return 0; } void check(int a, int b) {         if (a> b)         {                       a=a*a*a;                       b=b*b;                       }                       else                       {                               a=a*a;                               b=b*b*b;                               }                               cout< < a< < "\n";         cout< < b< < "\n";         }

квадрат катета   равен разности квадрата гипотенузы и квадрата другого катета

program raf105;

var

  b,s,s2: array[1..10] of real;

  i: integer;

begin

  for i: =1 to 10 do

  begin

    b[i]: = random(11,20);

    s[i]: = random(2,10);

    s2[i]: = sqrt(power(b[i],2) - power(s[i],2));

    writeln('треугольник №',i);

    writeln('гипотенуза: ',b[i]);

    writeln('катет 1: ',s[i]);

    writeln('катет 2: ',s2[i]: 0: 1);

    writeln;

  end;

end.

pascalabc