Паскаль abc до 24 мартаданы целые числа b1, . требуется проверить два условия: верно ли, что сумма чисел больших 20 превышает 100; верно ли, что сумма чисел меньших 50 — четное число.входные данные выходные данные 542 42 42 42 42 true trueвходные данные выходные данные 1 1 false falseиспользовать var, longint, case, for , if

Const n=10; m=5; var     i,j,k: integer;     a: array[1..n] of integer;     b,c: array[1..m] of integer; begin     writeln('введите элкменты массива');     for i: =1 to n do readln(a[i]);     j: =0; k: =0;     for i: =1 to n do         if i mod 2=1 then begin j: =j+1; b[j]: =a[i] end         else begin k: =k+1; c[k]: =a[i] end;     writeln('массив а');     for i: =1 to n do write(a[i],' ');     writeln;     writeln('массив b');     for i: =1 to j do write(b[i],' ');     writeln;     writeln('массив c');     for i: =1 to k do write(c[i],' ');     writeln end.

Var     s,p: real;     i,j: integer;     a: array[1..3]of real; begin readln(a[1],a[2],a[3]); for i: =1 to 3 do   for j: =1 to 3 do   if a[j]> a[i] then     begin     p: =a[i];     a[i]: =a[j];     a[j]: =p     end; if a[1]+a[2]> a[3] then   begin   p: =(a[1]+a[2]+a[3])/2;   s: =sqrt(p*(p-a[1])*(p-a[2])*(p-a[3]));   for i: =1 to 3 do     write(a[i],' ');   writeln;   writeln('площадь треугольника: ',s);   end   else writeln('треугольник не существует'); end.