Составить программу перевода 1-ого дюйма в сантиметры. (р.s: 1 дюйм=2,54 см)

Var a: integer;
var d: real;
begin
write('Введите дюймы: ');
readln(a);
d:=a*2.54;
writeln(a,'(дюйм) = ',d,' (см)');
end.