Начало пока нашлось (15) или нашлось (1) если нашлось (15) то заменить (15, 5551) иначе если нашлось (1) то заменить (1, 5) конец если конец если конце пока конец определить количество 5 в строке состоящей из 1 и 25 пятерок

Var a,b,c,r,s,p: real; begin   write('длины сторон треугольника a,b,c через пробел: ');   readln(a,b,c);   write('радиус круга r: ');   readln(r);   p: =(a+b+c)/2;   s: =sqrt(p*(p-a)*(p-b)*(p-c));   if r> =(a*b*c)/(4*s) then writeln('можно поместить')   else writeln('нельзя поместить'); end.длины сторон треугольника a,b,c через пробел: 3 4 5 радиус круга r: 2.49 нельзя поместитьдлины сторон треугольника a,b,c через пробел: 3 4 5 радиус круга r: 2.5 можно поместить

#include < bits/stdc++.h> using namespace std; int a[100001]; int main(){    int n, c = 0;     cin > > n;     for(int i = 1; i < = n; ++i)    {        cin > > a[i];     }    for(int i = 1; i < = n; ++i)    {        if(a[i] < a[i + 1])        {            if(i ! = n)            {                c++;             }        }    }    if(c == n - 1)    {        cout < < "yes";     }    else        cout < < "no";     //cout < < "hello world! " < < endl;     return 0; }//sadasdasd