Контрольная работа: Операции с матрицами

for i := 1 to N do

for j := 1 to N do

begin

writeln ('Введите ',i,'-ое значение ',j,'-ого ряда');

readln (input);

val (input,M,code);

if code = 1 then begin

writeln ('Ошибка - нечисловоезначение');

goto StartC;

end;

C[i,j] := M;

end;

StartD:

writeln ('Матрица D:');

for i := 1 to N do

for j := 1 to N do begin

writeln ('Введите ',i,'-ое значение ',j,'-ого ряда');

readln (input);

val (input,M,code);

if code = 1 then begin

writeln ('Ошибка - нечисловоезначение');

goto StartD;

end;

D[i,j] := M;

end;

{ФУНКЦИЯ}

MSub (B,C);

MK (X,3);

Xtmp1 := X;