Составьте паскаль-программу для решения следующей задачи: "Дан одномерный массив действительного типа. Получить другой массив, состоящий только из чисел исходного массива, больших данного числа N, или сообщить, что таких чисел нет. Полученный массив отсортировать методом вставки в порядке возрастания элементов и вывести".

program zz1;

var mas1, mas2:array[1 ... 10] of real;

n, i, j, t, k:integer;

b:real; / /задаем переменные

begin

read (n); / /вводим заданное число n

for i:=1 to 10 do

begin

read (mas1[i]); / /вводим с клавиатуры 10 действительных чисел

if mas1[i]>n then begin k:=k+1; mas2[k]:=mas1[i]; end; / /записываем в другой массив число, если оно больше заданного

end;

if k = 0 then writeln ('таких элементов нет '); / /выводим ответ

for i:=2 to k do / /сортируем полученный массив вставками по возрастанию

begin

b:=mas2[i];

j:=i-1;

while (j>=1) and (mas2[j]>b) do

begin

mas2[j+1]:=mas2[j];

j:=j-1;

end;

mas2[j+1]:=b;

end;

for i:=1 to k do

write (mas2[i],' '); / /выводим массив на экран

end.