Решите в паскале. заданы два массива. создать один массив в котором все элементы расположены в порядке возрастания.

Const     m = 10;   var     a,b: array[1..m] of integer;     c: array[1..m*2] of integer;     i, j, k: integer;   begin      write ('первый массив: ');       for i : = 1 to m do     begin   a[i] : = random(100);   c[i]: =a[i];   write (a[i],'; ');   end;       writeln;         write ('второй массив: ');       for i : = 1 to m do     begin   b[i] : = random(100);   c[i+m]: =b[i];   write (b[i],'; ');   end;       writeln;         for i : = 1 to 2*m-1 do         for j : = 1 to 2*m-i do             if c[j] > c[j+1] then               begin               k : = c[j];               c[j] : = c[j+1];               c[j+1] : = k               end;         write ('отсортированный третий массив: ');       for i : = 1 to 2*m do     write (c[i],'; '); end.

> 17    1) +1    2)+10 3  начало 4  3+1        1 5 4+1          1 6  5+1        1 7  6+1        1 8    7+1        1 9  8+1        1 10 9+1        1 11 10+1      1 12  11+1      1 13 12+1;   3+10      2 14 13+1;   4+10      3 15 14+1; 5+10        4 16  15+1; 6+10      5 17  16+1; 7+10      6                            ответ 6

Хоуми, у тебя в процедуре целочисленный тип, а вводимые числа вещественного. procedure chek(x: real);                     begin                            if (x< 1) then                 writeln('число ',x,'. маловато что-то');           end; var      a,b,c: real; begin          writeln('введите первое число');           readln(a);         writeln('введите второе число');       readln(b);         c: =a+b;         writeln('результат',c);         chek(a);           chek(b); end.