Антивирусная программа перехватить вирус в момент заражения.

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1

program zadacha1; var ves, rost, optves: integer; begin  write('введите массу тела');   read(ves);   write('введите рост в см');   read(rost);   optves: =rost-100;   if ves> optves then write('вам необходимо похудеть на', abs(optves-ves) );   if ves< optves then write('вам необходимо поправиться на', abs(optves-ves) );   if ves=optves then write ('ваш вес оптимальный')end.

в первом будет такая закономерность +2,*2,-2 и соответственно 1,3,6,4,6; во второй будет такая: -2; +3; -   9,7,10,8,11; и последняя -1,-1,+5,-1,-,2,1,6,5,4,3.вот и все)