346 делишь на 8 и каждый раз получившийся остаток записываешь там получается 532
Оно является (сума первых двух чисел равна сумме последних двух цифр
Var a: integer;
var d: real;
begin
write('Введите дюймы: ');
readln(a);
d:=a*2.54;
writeln(a,'(дюйм) = ',d,' (см)');
end.