Составить блок-схему, возводящая в квадрат меньшее из чисел и умножающая на 2 большее.

Ввести число 1             | ввести число 2             | если число 1 больше числа 2 да                               нет |                                      | чиcло1=число1*2       чиcло1=число1^2 чиcло2=число2^2      чиcло2=число2*2 | |                     | вывести число 1                   | вывести число 2

2начало 3 2+1     1 команда 4 3+1; 2*2     2 команды 5 4+1     2 6 3*2; 5+1     3 7 6+1     3 8 4*2; 7+1     5 9   8+1     5 10 5*2; 9+1   7 11 10+1   7 12 6*2; 11+1   10 13 12+1   10 14 7*2; 13+1   13 15 14+1     13 16   8*2; 15+1   18 32 16*2     18 33 32+1     18                                 ответ 18    

// pascalabc.net 3.2, сборка 1417 от 28.03.2017// внимание! если программа не работает, обновите версию! begin  var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('*** результат ***');   a.transform(x-> x> =0? 0: 1); a.println(4);   var s: =a.elementsbyrow;   writeln('нулей- ',s.where(x-> x=0).count,', единиц- ',          s.where(x-> x=1).count)end. пример количество строк в массиве: 4 количество столбцов в массиве: 5 *** исходный массив [4,5] ***   -19  61 -47 -38 -26   -95 -35 -56  43  40     0 -52 -87 -85  93   -68  48 -55    5 -93 *** результат ***     1    0    1    1    1     1    1    1    0    0     0    1    1    1    0     1    0    1    0    1 нулей- 7, единиц- 13