Перевести длину, заданную в дюймах, в сантиметры (10 дюймов = 254 мм).

Program Perevod;

Uses Crt;

const c=2.54; // 1 дюйм - 2,54 сантиметра 

var d,r:real; 

begin

   clrscr;

  write('Введите длину в дюймах: ');

  readln(d);

  r:=c*d;

  writeln('Длина в сантиметрах равна:',r);

  readkey;

end.