Напечатать таблицу умножения В ПаскалеНапечатать таблицу умножения для чисел 12,13,14.Все...

Question

Напечатать таблицу умножения В ПаскалеНапечатать таблицу умножения для чисел 12,13,14.Все данные расположите в несколько столбцов так,чтобы они были видны на экране

Answer 1

Program asd;
USES crt;
Const n=12; 
     n1=13; 
     n3=14;
    m=9;
Var i:integer;
BEGIN
For  i:=1 to m do begin
  Write(n,' * ',i,' =  ',n*i,'':5);
  Write(n1,' * ',i,' =  ',n1*i,'':5);
  Writeln(n3,' * ',i,' =  ',n3*i); 
end;
END.