Оформление задачи (решение имеется)

[AntoshkaK]

Как сделать, как на изображении


Вот код:

Const
   pr=4;
Var a1,i,j: integer;
Begin
 Repeat
   Writeln('Введите число от 2 до 20');
   Readln(a1);
 Until (a1<=20) and (a1>=2);
   If (a1>=2) and (a1<=20) Then
    begin
          Writeln('Таблица Пифагора');
           Write('*': pr);
      For i:=1 To a1 Do
         Write(i: pr);
         Writeln;
        For j:=1 To a1 Do
       begin
         Write(j: pr);
        For i:=1 To a1 Do
        Write(i*j: pr);
        Writeln;
       end; 
    end;
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Poma][a]

когда выводите ставите ':' и 3

[Zer0]

Poma][a, вообще то в вывод и так форматированный

Write(j: pr);

Чтобы выводить точно, как на картинке, код такой:

Const
   pr=4;
Var a1,i,j: integer;
Begin
 Repeat
   Writeln('Введите число от 2 до 20');
   Readln(a1);
 Until (a1<=20) and (a1>=2);
   If (a1>=2) and (a1<=20) Then
    begin
          Writeln('Таблица Пифагора');
           Write(' ': pr);
      For i:=1 To a1 Do
         Write(i: pr);
         Writeln;
         Write(' ':pr);
      For i:=1 To a1 Do
         Write('****');
         Writeln;
        For j:=1 To a1 Do
       begin
         Write(j: (pr-1),'*');
        For i:=1 To a1 Do
        Write(i*j: pr);
        Writeln;
       end; 
    end;
End.

[AntoshkaK]

Спасибо Вам огромное!

[Poma][a]

Сообщение от Zer0

Poma][a, вообще то в вывод и так форматированный

да, сори не посмотрел