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

Ну эм, раз это вся задача, то...

var 
  a: array[1..15] of integer;
  i: integer;
begin
  for i:=1 to 15 do
      readln(a[i]);
  for i:=1 to 15 do
      writeln(a[i]);
end.