Помогите вывести матрицу 10х10 в турбопаскале вот такого вида :

Question

0 0 0 0 0 6 7 8 9 10 
0 0 0 0 0 7 8 9 10 11 
0 0 0 0 0 8 9 10 11 12 
0 0 0 0 0 9 10 11 12 13 
0 0 0 0 0 10 11 12 13 14 
1 2 3 4 5 0 0 0 0 0 
1 2 3 4 5 0 0 0 0 0 
1 2 3 4 5 0 0 0 0 0 
1 2 3 4 5 0 0 0 0 0 
1 2 3 4 5 0 0 0 0 0

Влад Востриков · Accepted Answer

Ещё один дятел. Тысячи их.

Юрий Барметов · Answer

Пишите на почту или в асю 586178755

Елена Шишканова · Answer

Не умеешь - не берись, разгружай вагоны, это куда проще при отсутствии ума) 
 
Ну а программа вот: 
begin 
 WriteLn('0 0 0 0 0 6 7 8 9 10'); 
 WriteLn('0 0 0 0 0 7 8 9 10 11'); 
 WriteLn('0 0 0 0 0 8 9 10 11 12'); 
 WriteLn('0 0 0 0 0 9 10 11 12 13'); 
 WriteLn('0 0 0 0 0 10 11 12 13 14'); 
 WriteLn('1 2 3 4 5 0 0 0 0 0'); 
 WriteLn('1 2 3 4 5 0 0 0 0 0'); 
 WriteLn('1 2 3 4 5 0 0 0 0 0'); 
 WriteLn('1 2 3 4 5 0 0 0 0 0'); 
 WriteLn('1 2 3 4 5 0 0 0 0 0'); 
end.