Составте программу, которая из слов рама и шина составляет и выводит слово машина

Program mashina; uses crt; var s1, s2, s3: string; begin clrscr;           write('s1 = ');           readln(s1);                     write('s2 = ');           readln(s2);                     writeln;           s1: =copy(s1,3,2);           writeln('s3 = ',s1+s2);                     readln ; end.          

Program z1; var x1,x2,x3,x4: byte; begin for x1: =1 to 6 do begin               for x2: =x1+1 to 7 do begin                               for x3: =x2+1 to 8 do begin                                               for x4: =x3+1 to 9 do begin                                                               writeln(x1,x2,x3,x4)                                               end                               end               end end; readln end.

Информационная неопределенность (количество возможных результатов события) равна 16. будем задавать вопросы, на которые можно ответить только «да» или «нет». вопрос будем ставить так, чтобы каждый ответ приносил 1 бит информации, т.е. уменьшал информационную неопределенность в два раза. задаем вопросы: - друг живет выше 8-го этажа? нет. после этого ответа число вариантов уменьшилось в два раза, следовательно, информационная неопределенность уменьшилась в два раза. получен 1 бит информации.   друг живет выше 4-го этажа? да. число вариантов уменьшилось еще в два раза, получен еще 1 бит информации. друг живет выше 6-го этажа? да. после данного ответа осталось два варианта: друг живет или на 7 этаже, или на 8 этаже. получен еще 1 бит информации. друг живет на 7-м этаже? нет. все ясно. друг живет на 8-м этаже. каждый ответ уменьшал информационную неопределенность в два раза. всего было задано 4 вопроса. получено 4 бита информации. сообщение о том, что друг живет на 8-м этаже 16-ти этажного дома несет 4 бита информации.