единичность матрицы и 3 одинаковые цифры Опции

[LP.by]

нада срочна 2 задачки,
1. Дана квадратная матрица А, порядка n. Проверить является ли она единичной.
вот я к ней цикл сделал:

for i : = 1 to n do
 if a[i,i] = 1 then begin
   a[i,i] : = 0;
 for j : = 1 to n do
  if a[i,j] <> 0 then begin
 Writeln('matriza edini4na')
else
 Exit;

плз нада её аформить.

2. Дано n-значное число Р. Верно ли что оно содержит 3 одинаковые цифры??

а па поваду втарой задачки я не знаю