единичность матрицы и 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 одинаковые цифры??

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

[мисс_граффити]

ну, для небольших чисел:

program cifri;
var chislo:longint;
i:byte; {при желании, можно и без нее обойтись... но для наглядности пусть будет}
ar: array[0..9]of integer; {сюда будем записывать, сколько раз встречаются цифры}
begin
for i:=0 to 9 do {обнуляем массив}
  ar[i]:=0;
writeln('chislo?');
readln(chislo);
while chislo>0 do {выделяем разряды и считаем}
  begin
  inc(ar[chislo mod 10]);
  chislo:=chislo div 10;
  end;
i:=0;
while (i<9) and (ar[i]<>3) do
  inc(i);
if ar[i]=3 then
  writeln('YES!!!')
else
  writeln('NO!!!');
readln;
end.

числа типа 000123 заменяются на 123, то есть считается, что 3 одинаковых нет