Кажется понял в чем проблема.У вас не работало т,к, отсутствовали begin и end; в case .Плюс еще пару недочетов в коде
Думаю чтото вроде того
покрышка часть колеса
колесо часть автомобиля
окно часть автомобиля
стекло часть окна
окно часть дома
дверь часть дома
предмены общие потому что таких домов, окон и тп может быть много
Var
k: integer;
m: real;
begin
writeln('Введите расстояние в километрах');
read(k);
m := k * 0.62;
writeln(k, ' км = ', m:0:2, ' миль');
readln;
end.