Question

Составьте программу, по которой на экран будет выведена вся таблица умножения.

Answer 1

program MultiplicationTable;
var   i, j: integer;
begin   for i := 1 to 10 do   begin     for j := 1 to 10 do       write(i * j:4);     writeln;   end;
  readln; end.