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

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