TUGAS TURBO PASCAL MATRIKS IDENTITAS

LIST PROGRAM 

uses

  WinCrt;

var

A,B,C:ARRAY[1..10,1..10] OF INTEGER;

X,Y,KOL,BAR:INTEGER;

BEGIN

FOR X:=1 TO 5 DO

BEGIN

FOR Y:=1 TO 5 DO

BEGIN

   C[X,Y]:=0;

   IF X+Y=6 THEN C[X,Y]:=1;

   WRITE(C[X,Y]:4);

 END;

 WRITELN;

 END;

 END.

RUN PROGRAM