MARİOMATRİS

PROGRAM MARIOVERI;
VAR i,j,ls,js,k,t : INTEGER;
mario : ARRAY [0..20,0..20] OF INTEGER;
marioson,veri:TEXT;

BEGIN


ASSIGN(veri,'C:/mariotext.txt');
RESET(veri);

ASSIGN (marioson , 'C:/mariosonuc.txt');
REWRITE(marioson);

FOR k:=1 TO 20 DO
FOR t :=1 TO 20 DO
BEGIN

mario[k][t] :=0;

END;

READ(veri, js, ls);
FOR i:=1 TO ls DO
BEGIN
FOR j:=1 TO js DO
BEGIN
READ(veri, mario[i][j]);
WRITE(marioson, mario[i][j]);
END;
READLN(veri);
WRITELN(marioson);
END;





FOR k:=1 TO 20 DO
BEGIN
FOR t :=1 TO 20 DO
BEGIN

WRITE( marioson,mario[k][t], ' ');

END;

WRITELN(marioson);
END;


READ(veri,i,j);

WRITELN(i);
WRITELN(j);


CLOSE(marioson);
READLN;
END.