Склади якомога більше слів із букв слова, інформатика.

Форма, фон, мак, торф, мати, марка, рама, кіно, романтика, корм, міф, канат, ікра,   монітор, фірма, факти. марафон, рот, норма, німфа, рим, рима, рак, ріка, формат, танк. 

//первая var a,b,c: integer; beginread(a,b,c); if a> 0 then a: =a*a else a: =a*a*a*a; if b> 0 then b: =b*b else b: =b*b*b*b; if c> 0 then c: =c*c else c: =c*c*c*c; write(a,' ',b,' ',c); end. //вторая var a,b,c: integer; beginread(a); if(a< 100)or(a> 999)then write('заданное число не трехзначное! '); if (a> 99) and (a< 1000)thenbeginb: =a*a; while a< > 0 dobeginc: =c + a mod 10; a: =a div 10; end; c: =c*c*c; if c=a then write('квадрат равен кубу суммы цифр')else write('квадрат не равен кубу суммы цифр')end; end. //третья var a: integer; beginread(a); if a=1 then write('январь'); if a=2 then write('февраль'); if a=3 then write('март'); if a=4 then write('апрель'); if a=5 then write('май'); if a=6 then write('июнь'); if a=7 then write('июль'); if a=8 then write('август'); if a=9 then write('сентябрь'); if a=10 then write('октябрь'); if a=11 then write('ноябрь'); if a=12 then write('декабрь'); end.

5< =x< 5 (x> =-5) and (x< 5) при x = 9  (9> =-5) and (9< 5)     да              нет ответ: 9 не  принадлежит  промежутку [-5; 5)при x = 0  (0> =-5) and (0< 5)     да                да ответ: 0 принадлежит  промежутку [-5; 5) при x = -9  (-9> =-5) and (-9< 5)       нет              да ответ: -9 не  принадлежит  промежутку [-5; 5)