program project1; var n,i,j:integer ; begin Write ('Vyvedete chislo'); Readln(n); for i:= 1 to n do begin for j:=1 to n do Write (j,'' ); Writeln; end; Readln; end.