Проверить истинность равенства с заданной точностью.

Program Pifagor;
uses crt;
const n=10;
var
  x,y:integer;
begin
  writeln('');
  writeln('*                        PIFAGOR                       *');
  writeln('*                  (таблица умножения)                 *');
  writeln('');
  write('*    * ');
  for y:=1 to n do
    begin
      write(y:2);
      if y<n then write(' | ')
      else      writeln(' * ');
    end;
  writeln('');
  for x:=1 to n do
    begin
      write('* ',x:2, ' * ');
      for y:=1 to n do
         begin
          write(x*y:2);
          if y<n then write(' | ')
        end;
        if x*y<100 then writeln(' * ')
                   else writeln('* ');
        if x<10 then writeln('++')
                else writeln('');
    end;
end.

Формат вывода - это двоеточие, после которого следует целое число или выражение.

Это число или выражение задает ширину поля вывода, то есть количество позиций, отводимых под выводимое значение.

Для целых чисел формат вывода имеет вид:

число:ширина

(например i:4)

где число - выводимое значение, а ширина - количество позиций, которые займёт это значение (включая одну позицию для знака числа + или -) Если число имеет больше цифр, чем указывает ширина, то формат вывода игнорируется. Усли меньше - то выводимый текст дополняется слева пробелами до нужной ширины (выводимое значение выравнивается по правому краю).

Для вещественных чисел формат вывода имеет вид:

число:ширина:знаки,

(например i:4:5)

где ширина -  количество позиций, которые займёт значение (включая цифры после точки, одну позицию для точки и одну позицию для знака числа + или -), а знаки - количество цифр после точки.

Аналогично, если ширина меньше чем нужно для вывода, то формат вывода игнорируется.