помогите составить поргармму

помогите составить поргармму выводящую на экран магический квадрат
магисский квадрат это квадрат где сумма чисел в каждой строке, каждом столбце и на обеих диагоналях одинакова.

паскаль

или скиньте сайт где есть эта прогармма толоко на паскале