Перевести длину, заданную в дюймах, в сантиметры (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.