Pascal abc дана сторона квадрата и радиус круга r входит ли круг в квадрат ?

Var stkv,rkr: real; begin writeln('введите сторону квадрата'); readln(stkv); writeln('введите радиус круга'); readln(rkr); if rkr< stkv/2 then write('входит') else write('не входит') end.

#include < iostream> #include < iomanip> using namespace std; int main() {     int n,x;     cout< < "n = ";   cin> > n;     float a[n];     srand(time(null));     for (int i=0; i< n; i++)   {       a[i]=(rand()%100);       a[i]/=10;       cout< < a[i]< < " ";     }     cout< < endl;     int i=3;     while (i< n) {       for (int j=i; j< n-1; j++)   a[j]=a[j+1];             n--;         i+=3;     }           for (int i=0; i< n; i++) cout< < a[i]< < " ";     cout< < endl;     system("pause");     return 0; }

Var  a: array of real; n,i,j: integer; begin randomize; write('n = '); readln(n); writeln('исходный массив: '); setlength(a,n); for i: =0 to n-1 do   begin     a[i]: =10*random;     write(a[i]: 6: 2);   end; writeln; for j: =n div 4 downto 1 do   begin   for i: =4*j to length(a)-1 do a[i-1]: =a[i];   setlength(a,length(a)-1);   end; for i: =0 to length(a)-1 do write(a[i]: 6: 2); writeln; end. пример: n = 15 исходный массив:   8.17  9.96  5.06  9.34  2.91  7.37  3.64  7.22  2.83  3.04  2.02  9.09  0.32  5.10  9.35   8.17  9.96  5.06  2.91  7.37  3.64  2.83  3.04  2.02  0.32  5.10  9.35