Народ будьте добры , )) напечатать таблицу ( записать как делать ) перевода расстояний в дюймах в сантиметры (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.