var a,b,d,i,j : integer; begin writeln('***Table Maker***'); write('How many rows do you want? '); readln(a); write('How many columns do you want? '); readln(b); for i := 1 to a do begin for d := 1 to b do begin write('|'); for j := 1 to (79 div b)-1 do write('.'); end; writeln('|'); end end.