Народ будьте добры , помогите)) напечатать таблицу ( записать как делать ) перевода расстояний в дюймах в сантиметры (1дюйм=2,54 см ) для значений от 1 до 10 дюймов с шагом 1.

const sm=2.54; {значение см в 1 дюйме} var d:real;      begin                d:=1;    {начальное значение - 1 дюйм}                while d<=10 do      {пока дюймов меньше или равно, чем 10}                          begin                                         writeln(d,''': ',d*sm:4:2,' sm');     {выводим на экран дюйм - см}                            d:=d+1;   {увеличиваем шаг на 1}                            end;       end.