Пожалуйста,помогите с информатикой! (программа-паскаль).

1)

for N1 := 1 to 3 do
  for N2 := 0 to 4 do
    WriteLn(N1*3, N2*2);

2)

for N1 := 1 to 2 do
  for N2 := 0 to 9 do
    WriteLn(N1*4, N2, 1);

3)

for N1 := 1 to 9 do
  for N2 := 0 to 9 do
    for N3 := 0 to 9 do
      for N4 := 0 to 9 do
        if N1+N2 < N3+N4 then
          WriteLn(N1, N2, N3, N4);

4)

for N1 := 1 to 2 do
  for N2 := 0 to 9 do
    if Not(N2 in [4, 8]) then
      for N3 := 0 to 9 do
        WriteLn(N1*4, N2, N3, 4);

5)

for N13 := 1 to 2 do
  for N2 := 0 to 9 do
    for N4 := 0 to 9 do
      if N2 <> N4 then
        WriteLn(N13, N2, N13, N4);

Пятое задание:

for j:=1 to 9 do
for k:=0 to 9 do
for n:=0 to 9 do
if k xor n > 0 then
writeln(j*1010+k*100+n);

Остальные - аналогично.

Помощь? Пожалуйста: используйте операторы DIV и MOD с числами 10, 100, 1000, 10000

Может поменять вуз на гуманитарный?
Помощь это - выкладываешь листинг и говоришь ой не соображаю, чего не так помогите.
А когда список заданий - это халява. . Ну поможем, а дальше вы что намерены делать? Работать кто за вас будет? Много буков. . не сдержался =)

Нет, и много раз нет! ! Зачем вы это изучаете? Чтобы тут потом спрашивать "синий ыкран ни работаит" ??)