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

Question

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

Answer 1

Без массивов и с циклами:

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.