8.45(a)
program z8_45a;
uses crt;
const a:array[1..4,1..4] of integer=((1,11,4,7), (5,9,2,10),
(7,6,4,2),
(3,1,4,5));
const n=4;
var i,j,k,s:integer;
BEGIN
clrscr;
writeln('Введите число, для проверки его нахождения слева от нижней диогонали матрицы.');
readln(k);
for i:=1 to n do
begin for j:=1 to n do write(a[i,j]:5); writeln; end;
for i:=1 to n do
for j:=1 to n do
if (i-j>=0) and (k=a[i,j])
then begin writeln('Да оно есть, брать будете?');
i:=n+1; end;
if (i-j>=0) and (k<>a[i,j])
then begin writeln('К сожалению его нет, но к вечеру
обещали подвезти.');
i:=n+1; end;
END.