Помогите составить пару программ в паскале ABC

1)
begin WriteLn((200 div 17) * 17); end.

2)
for N1 := 1 to 9 do for N2 := 0 to 9 do if ((N1 = N) or (N2 = N)) and ((N1*10 + N2) mod N = 0) then Write(N1, N2, #32); WriteLn;

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) and (N1 <> N3) and (N1 <> N4) and (N2 <> N3) and (N2 <> N4) and (N3 <> N4) then Write(N1, N2, N3, N4, #32); WriteLn;

4)
for N1 := 1 to 9 do for N2 := 0 to 9 do if (N1+N2 + (N1+N2)*(N1+N2)) = N1*10 + N2 then Write(N1, N2, #32); WriteLn;

дайте угадаю, дело идет к сессии и пора лабы сдавать? )

Числа должны задаваться как массив.
1. If-else в цикле.
2. каждое введенное число разбивается на составляющие ("26" - "2" и "6") и записывается в отдельные переменные, просто делите на 10 - это будет первое число (переменная должна быть типа integer), а затем, с помощью операции mod(26 mod 10 = 6, остаток от деления) , а дальше опять цикл if - else.
3. тоже, что и в п. 2
5. тоже, что и в п. 2

А вообще, если у вас нет элементарных знаний языка, сделать врятли что-то получится.