Впоследовательности из четырех произвольнл задпваемых чисел найти число больше 4. язык c++

Const n = 30; var days: array[1..n] of boolean; b,a,i: integer; begin b: =random(15,100); a: =random(60,100); writeln('высота дерева: ',b/10,' м'); writeln('высота подъёма улитки: ',a,' см'); write('погода: '); for i: = 1 to n do       begin       if random(2) = 1 then days[i]: =true       else days[i]: =false;       if days[i] then write('солнечно ')       else write('пасмурно ')       end; writeln; for i: = 1 to n do       begin       if days[i] then             begin             if a+3< =b then a: =a+3             else a: =b;             end       else             begin             if a-2> =0 then a: =a-2             else a: =0;             end       end; write('высота поъёма улитки: ',a/10,' м') end.

Program trapeciya; var x1, x2 ,y1, y2,  p, s: real; begin   writeln("введите значение верхнего основания");   readln(y1);   writeln("введите значение нижнего  основания");   readln(y2);   writeln("введите значение левой  грани");   readln(x1);   writeln("введите значение правой стороны");   readln(x2); p: =y1+y2+x1+x2;   s: =((y1+y2)/2)*sqrt(sqr((sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2- writeln(p); writeln(s); end