program bang_cuu_chuong_lop_8 ; uses crt; var i : byte; begin clrscr; writeln ('bang cuu chuong lop 8 '); for i:=1 to 10 do ; writeln('8 * ',i,'= ',8*i); readln; end.
Uses crt; Var a:array[1..9,1..9] of Integer ; i,j:byte ; Begin Clrscr ; For i := 1 to 9 do For j := 1 to 9 do A[i,j] := i*j ; For i := 1 to 9 do Begin For j := 1 to 9 do Write(a[i,j]:5); Writeln ; Writeln ; End ; Readln ; End.
