Сделайте таблицу умнажений в Free Pascal

Без массивов и с циклами: program N53746544; var a,b:integer; begin writeln('Таблица умножения'); for a := 1 to 9 do begin for b := 1 to 9 do if a*b=1 then write('____') {печатает 4 пробела}else write(a*b:4); writeln; end; readln; end.