Фотосуреттің өлшемі 4000х 1500 нүктедең тұрады.Әр бір нүкте сонша түстен тұрады.
​

Var a,b,c,d:integer;
begin
  writeln('Введите 4 числа через пробел'); readln(a,b,c,d);
  if (a>0)and(b>0)and(c>0)and(d>0) then writeln('Все числа положительные')
 else if ((a<0)and(b>0)and(c>0)and(d>0))or((a>0)and(b<0)and(c>0)and(d>0))or((a>0)and(b>0)(c<0))or((a>0)and(b>0)and(c>0)and(d<0)) then writeln('3 числа положительные')
  else if ((a<0)and(b<0)and(c>0)and(d>0))or((a<0)and(b>0)and(c<0)and(d>0))or((a<0)and(b>0)and(c>0)and(d>0))or((a<0)and(b>0)and(c>0)and(d<0))or((a>0)and(b<0)and(c<0)and(d>0))or((a>0)and(b<0)and(c>0)and(d<0))or((a>0)and(b>0)and(c<0)and(d<0)) then writeln('2 числа положительных');
  else if ((a>0)and(b<0)and(c<0)and(d<0))or((a<0)and(b>0)and(c<0)and(d<0))or((a<0)and(b<0)and(c>0)and(d<0))or((a<0)and(b<0)and(c<0)and(d>0)) then writeln('1 положительное число')
  else if (a<0)and(b<0)and(c<0)and(d<0) then writeln('Нет положительных чисел');
  readln
end.

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