Pascal. Написать такую программу:
На вход получает N - количество элементов последовательности чисел.
Затем следуют элементы последовательности.
Программа должна вывести все отрицательные элементы последовательности, чьи квадраты не превосходят 7000, в порядке, обратном порядку их ввода. 
Например на вход идут:
4
-3
6
-7
-99

На выходе получаем:
-7
-3

Я предлагаю такое начало программы:

program num9;
const N = 5;
var a : array [1..N] of integer;
i, m : integer;
begin for i := 1 to N do
readln (a[i]);
m := a[i];
if (m < 0) and (m*m < 7000) then

Как следует поступить дальше? 

program num9;const  N = 5;var  a: array [1..N] of integer;  i: integer;begin  for i := 1 to N do    readln(a[i]);  for i := N downto 1 do    if (a[i] < 0) and (sqr(a[i]) < 7000) then      writeln(a[i]);  end.