Составьте по 30 слов из слов информатика , криптография и декодирование .

Информатика:   романтика,  аниматор,  митрофан,  романтик,  антимир,  инфаркт,  камфора, каротин,  картина,  комната марафон,  мартини,  матрона,  намотка,  окраина ритмика,  фанатик,  фонарик,  аконит,  амфора анатом,  арника,  аромат,  африка,  карман картон,  катион,  катран,  кафтан,  комар микрон криптография:   пиктография,  типография,  риторика,типограф,атрофия киприот,  порфира,  тропики,  гарпия,  готика график,  графит,  коряга,  оптика,  партия пирога,  портик,  портки,  приток,  прокат прятки,  рапорт,  трагик,  трафик,  тропик тряпка,  фактор,  апорт,  гопак,  игрок декодирование: кодирование,  единоверка,  диковина,  иноверка,  краденое вареник,  видение,  воронка,  вредина,  дарение двоение,  дворник,  доверие,  доводка,  кивание киновед,  конвоир,  коневод,    краевед,  родинка водник,  ворона,  дверка,  дворик,  дерево диакон,  доение,  дракон,  древко,  дровни ендова

Var   n,m,i,j,k1,k2: integer;   a: array[1..100,1..100] of integer; begin   readln(n,m);   for i: =1 to n do     for j: =1 to n do readln(a[i,j]);   for i: =1 to n do     for j: =1 to n do       if a[i,j]> 0 then inc(k1) else inc(k2);   for i: =1 to n do     for j: =1 to n do       if (k1> k2) and (a[i,j]> 0) then writeln(a[i,j]) else         if (k1< k2) and (a[i,j]< 0) then writeln(a[i,j]) end.

Const n=16; minr=-20; maxr=20; var a: array[1..n] of integer; k,i: integer; t: boolean; begin for i: =1 to n do begin a[i]: =random(maxr-minr+1)+minr; write(a[i],' ') end; writeln; k: =0; for i: =1 to n do begin if (a[i] mod 2=0) and (a[i]< > 0) then write(i,' '); if a[i]< 0 then k: =k+1 end; writeln; writeln(k); t: =false; for i: =1 to n do if (a[i] mod 3=0) and (a[i]< > 0) then begin if t=false then begin writeln(true); t: =true end; write(i,' ') end; if t=false then writeln(false) end.