Не понял, зачем тебе переменная m? Вот программа
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.
В некоторых странах слишком холодно зимой, чтобы ездить на велосипедах → они там непопулярны и запросов меньше.
В других странах у людей расстояния большие → велосипед неудобен.
В третьих странах уровень дохода слишком низок. Люди пользуются преимущественно велосипедами, но денег на интернет и компьютеры у них нет, они напрямую покупают в обычных магазинах.
В четвертых уровень дохода высок и там тепло и → люди тщательно подбирают "продвинутые" модели велосипедов в интернете - запросов больше.
ПКМ (Правая кнопка мыши) по иконке ворда открыть. Это раз
Второе два быстрых клика по иконке на рабочем столе.
Третье создать фаил ворд вот так ПКМ-Создать файл Word.
И четвертое создаем файл в разрешении ТхТ и меняем разрешение на dox.
Пятое на всякий случай создаем тхт документ открываем его через ПКМ и вариант в контекстном меню открыть с помощью.