Напечатайте таблицу перевода расстояний из дюймов в сантиметры (1 дюйм = 2,54 см) - Turbo Pascal

Формулировка задачи:

Ребята, вот программа:

Var
  i: Real;
BEGIN
i:=1;
While i<=50 do
begin
  Writeln(i:5:1,'д. = ',i*2.54:5:2,' см.');
  i:=i+0.5;
end;
END.

как мне её вывести на экран

в несколько столбцов

? подскажите плиз

Решение задачи: «Напечатайте таблицу перевода расстояний из дюймов в сантиметры (1 дюйм = 2,54 см)»

Листинг программы

var i: Integer;
begin
  for i:=0 to 24 do Write(#13#10,
    i*2+0.5:11:1,(i*2+0.5)*2.54:8:2,
    i*2+1.0:11:1,(i*2+1.0)*2.54:8:2,
    i*2+1.5:11:1,(i*2+1.5)*2.54:8:2,
    i*2+2.0:11:1,(i*2+2.0)*2.54:8:2);
  ReadLn;
end.

Объяснение кода листинга программы

В этом коде используется цикл for для перебора чисел от 0 до 24. При каждой итерации цикла выводится перевод расстояния из дюймов в сантиметры. В каждой строке вывода используется функция Write, которая принимает три аргумента: 1) Строка, которую нужно вывести (#13#10 - символ перевода строки). 2) Значение переменной i2+0.5 в дюймах. 3) Значение переменной (i2+0.5)2.54 в сантиметрах. Номер элемента: 1 i, 2.54 Номер элемента: 2 `(i2+0.5),(i2+0.5)2.54`