Запиши программу на языке паскаль для: y = {0, если x ≤ 0 {x, если 0 < x ≤ 1 {x², если x > 1 (y: 3: 0) запусти программу и введи значение x = 6 я не , !

Стакан перемещается на третье место, соответственно чашка на четвертое. теперь известно, что кофе оказалось посередине, т.е. оно в стакане. справа и слева чай и молоко. т.е. в кружке либо чай, либо молоко и в чашке тоже. но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. в чашке - молоко, в кувшине квас, в кружке чай.                   кофе чай молоко квас минеральная вода       бутылка   -        -      -            -        +      кружка             +             чашка                     +           стакан     +        -      -          -          -      кувшин                               +  

Const   n1 = 20;   m1 = 20; var   a: array[1..n1, 1..m1] of integer;   b: array[1..m1] of integer;   i, j, m, n: integer; begin   write('введите через пробел число строк и столбцов массива: ');   readln(n, m);   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       for j : = 1 to m do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4)       end;       writeln   end;   writeln('сформированный массив');   for j : = 1 to m do   begin       i : = 1;       while (i < = n) and (a[i, j] > = 0) do i : = i + 1;       if i < = n then b[j] : = a[i, j] else b[j] : = -99;       write(b[j]: 4)   end;   writeln end. тестовое решение: введите через пробел число строк и столбцов массива: 3 10 исходный массив   -11 -18 -42 -22  -9    2  21  15  40  -3     4  -5  40 -13 -44 -37  43  47    1 -39   20  50  21 -18 -10    6  12 -10  43 -37 сформированный массив   -11 -18 -42 -22  -9 -37 -99 -10 -99  -3