Стаблицы на одной улице стоят в ряд 4 дома, в которых живут 4 человека: иван, борис, михаил и андрей. известно, что каждый из них владеет ровно одной из следующих профессий: врач, учитель, слесарь и парикмахер, но неизвестно, кто какой и неизвестно, кто в каком доме живет. однако, известно, что: (1) слесарь живет левее учителя (2) парикмахер живет правее учителя (3) врач живет с краю (4) врач живет рядом с парикмахером (5) борис не врач и не живет рядом с врачом (6) андрей живет рядом с учителем (7) иван живет левее парикмахера (8) иван живет через дом от андрея выясните, кто какой профессии, и кто где живет

  сначала узнаем кто где живет.  известно что:   (1) слесарь живет левее учителя (2) парикмахер живет правее учителя   значит учитель живет по между ними с       у       п  (3) врач живет с краю (4) врач живет рядом с парикмахером значит врач живет с права с     у   п     в построим таблицу             с     у     п   в   и       б   м   а (5) борис не врач и не живет рядом с врачом             с     у     п       в   и       б                     х       х   м   а (6) андрей живет рядом с учителем           с     у     п         в   и       б                             х   м   а             х               х (7) иван живет левее парикмахера           с     у     п         в   и                   х         х   б                   х         х   м   а             х               х (8) иван живет через дом от андрея           с     у       п   в   и     +      х      х    х      б       х       +     х      х   м       х       х       х   +   а       х       х   +       х

Иван-слесарь, борис-учитель, андрей-парикмахер, михаил-врач

Var a,b,c: real; begin writeln('введите гипотенузу  '); readln(a); writeln('введите катет  '); readln(b); c: =sqrt(sqr(a)-sqr(b)); writeln('второй катет треугольника  =  ',c); end.