program mark3; uses wincrt; var inner,outer:longint; begin write('***Multiplication Table***'); for outer:=1 to 3 do begin for inner:=1 to 5 do write(outer:4,'x',inner,' = ',outer*inner:2); writeln; end; end.