Паскаль. вывести на экран все элементы одномерного массива, которые превосходят заданное числоа

Program gt; var b: array[1..100000]of real; a: real; i,n: integer; begin read(n);   // n- кол-во чисел массива for i: =1 to n do read(b[i]); read(a);   //a -заданное число с которым надо сравнить элементы массива for i: =1 to n do if(b[i]> a) then write (b[i],' '); end.

//pascal abc.net v3.1 сборка 1172 const   n=4;   m=4; var   ar: array[1..n,1..m] of integer;   i,j: integer; begin   randomize;   writeln('first matrix: ');   for i: =1 to n do     begin     for j: =1 to m do       begin       ar[i,j]: =random(100);         write(ar[i,j]: 4);       if ar[i,j] mod 3=2 then inc(ar[i,j]);       end;       writeln;     end;   writeln('final matrix: ');   for i: =1 to n do   begin     for j: =1 to m do     write(ar[i,j]: 4);   writeln;   end; end. пример вывода: first matrix:   20   80   1   69   25   77   97   3   32   56   97   23   99   81   12   82 final matrix:   21   81   1   69   25   78   97   3   33   57   97   24   99   81   12   82

//pascal abc.net v3.1 сборка 1172 //ввод файла в текстовом редакторе var   f: text;   s: string;   a: integer; begin   writeln('first file: ');   assign(f,'text.txt');   reset(f);   while not eof(f) do   begin     read(f,a);     write(a: 4);     if (a> 8) or (a< 6) then   a: =sqr(a);     s: =s+a+' ';     end;   close(f);   writeln;   writeln('final file: ');   write(s);   assign(f,'text.txt');   rewrite(f);   write(f,s);   close(f); end. пример работы программы: first file:     1   2   3   4   5   6   7   8 final file: 1 4 9 16 25 6 7 8  //ввод файла   программе var   f: text;   s,s1: string;   a,i: integer; begin   assign(f,'text.txt');   rewrite(f);   for i: =1 to 10 do   begin   read(a);   write(f,a);     s1: =s1+inttostr(a)+' ';   if (a> 8) or (a< 6) then a: =sqr(a);   s: =s+inttostr(a)+' ';   end;   close(f);   writeln('first file: ');   writeln(s1);   writeln('final file: ');   write(s);   assign(f,'text.txt');   rewrite(f);   write(f,s);   close(f); end. пример ввода: 1 2 3 4 5 6 7 8 9 10 пример вывода: first file: 1 2 3 4 5 6 7 8 9 10 final file: 1 4 9 16 25 6 7 8 81 100