Не понял, зачем тебе переменная 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.
Ответ: 30
Эти условия не должны соблюдаться:
x>=31
x<30
1) как угодно, зависит конечно от возможностей редактора и его задач
2) ctrl+g - переход к определенной строке по номеру или странице
Home, End - Начало/Конец строки
стрелочки и так понятно
CTRL+HOME/CTRL+END - переход в начало/конец всего текста
pgUp/pgDown - переход на экран вверх/вниз
Так же еще есть закладки
ctrl+f - поиск в тексте
Бывает еще система структуры документа, которая позволяет быстро перемещаться между заголовками и подзаголовками
ctrl+f12 - переход к определению
Просто, если логически подумать, то
<em>Белов -рыжеволосый</em>
<em>Чернов -беловолосый</em>
<em>Рыжов- черноволосый</em> :)
Var a:integer;
Begin
read(a);
If a>10 then a:= a div 10
else a:= a+1;
writeln(a);
end.