Написать в паскале программу перевода заданного числа х (в дюймах) в сантиметры. + алгоритм.

// Перевод дюймов в см
const d_v_sm = 2.54; // Дюймов в 1 см
var x:real;
begin
Write('Введите кол-во дюймов: ');
Readln(x);
Writeln(x,' дюймов = ',x/d_v_sm,' сантиметров');
end.