На языке Паскаль написать программу выводящую массив натуральных чисел с 1 до 15.

Помогите, люди добрые. До завтра время дано!

1) var k:integer; begin for k:=1 to 5 do write (i*2:4) ; readln end.

2) begin writeln ((10+15) * (15-10+1) / 2) ; readln end. или begin writeln (75) ; readln end.

3) var a, n:integer; begin readln (n, a) ; if n mod a = 0 then writeln ('делится нацело') else writeln ('не делится нацело') ; readln end.

4) var n:integer; begin readln (n) ; writeln (trunc ((sqrt (4 * (n+1) + 1) - 1) / 2+0.9999)) ; readln end;