Паскаль:
Вывести все отрицательные числа начиная с числа N и до числа M.

1)var

2)m,n:integer;

3)begin

4)writeln('vvedite chisla(n>=m)');

5)repeat

6)readln(n);

7)readln(m);

8)until m >= n;

9)while m >= n do begin

10) if n mod 2 = 0 then writeln(n);

11) n:=n+1;

12)end;

13)end.

Объяснение: