Жди, пока закончится. Это проверка и исправление ошибок на диске.
Var x,y,k:integer;
begin
Writeln('Привет,я-alconafft');
writeln('введите числа х у');
read(x,y);
k:=x mod y;
write(k);
end.
если всё прибавить надо то 9+8+7+10+6+8+6=54
Думаю чтото вроде того
покрышка часть колеса
колесо часть автомобиля
окно часть автомобиля
стекло часть окна
окно часть дома
дверь часть дома
предмены общие потому что таких домов, окон и тп может быть много