Даны два числа. определить модуль какого числа больше. модуль на языке паскаль.

Unit maxmod; interface function maxmod2(a,b: real): real; implementation function maxmod2(a,b: real): real; begin     if abs(a)> abs(b) then maxmod2: =a     else maxmod2: =b end; end. компилируем в maxmod.tpu и пишем тестовую программу uses maxmod, crt; var     x,y: real; begin     clrscr;     read(x,y);     writeln(maxmod2(x,y));     readkey end.

1)  из условий (1) и (2) следует, что охотник живет не с краю, потому что справа от него живет столяр, а слева – врач;   скрипач по условию (3)  живет с краю, он может жить как слева, так и справа от них,  (4) скрипач живет рядом с врачом, поэтому он занимает крайний дом слева    профессии жильцов определили, остается разобраться с именами   из условия (5) «семен не скрипач и не живет рядом со скрипачом» следует, что семен – охотник или столяр: из условия (6) «иван живет рядом с охотником» следует, что он – врач или столяр  из условия (7) «василий живет правее врача» определяем, что василий – охотник или столяр  из условия (8) «василий живет через дом от ивана» находим, что иван – врач, а василий –столяр  тогда сразу получается, что семен – охотник, а геннадий должен занять оставшееся свободное место, он ­– скрипач следовательно ответ: геннадий-скрипач, иван- врач, семен-охотник, василий столяр