Заполнить массив 5 на 5 нулями выше диагонали, ниже главной диагонали единицами, диагональ звездочками

Const     n = 5; var     a: array[1..n,1..n] of char;     i,j: integer; begin writeln('требуемый массив: '); for i: = 1 to n do       begin       for j: = 1 to n do               begin               if j=i then a[i,j]: ='*';               if j> i then a[i,j]: ='0';               if j< i then a[i,j]: ='1';               write(a[i,j])               end;       writeln;       end end.

Известно что боря жил в одной комнате с мальчиком из кирова и ни один из этих мальчиков не был в москве, ни в санкт-петербурге, то есть боря был не из москвы, не из питера и не из кирова, остаётся-омск. гриша играл в одной команде с мальчиком из москвы, а вечерами к ним заходил мальчик из кирова, значит, точно знаем, что гриша был не из москвы, не из кирова, остаются питер и омск, но мы уже установили, что из омска был-боря, получается, что гриша был из питера.  егор и мальчик из москвы увлекались игрой в шахматы, значит, егор был точно не из москвы, и при этом мы знаем, что омск и питер уже заняты. остался киров у нас остался один город москва и один мальчик, которого зовут витя, значит, витя был из москвы. вывод: витя - москва боря - омск гриша - санкт-петербург егор - киров.