PROGRAM MATRIX

PROGRAM MATRIX;
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;
      writeln('    nama : misbahulmunir    ');
      writeln('      nim  : 111221067     ');
      writeln('www.munirmaestro.blogpsot.com');
 
 END.