Сведения команды из окружающего мира называется

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

из всех монет в меньшей стороне всегда присутствует v6,

в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных

var

a: array[1..100] of integer;

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел. 

мир информатики  это только один и ноль, только черное и белое, только да и нет. нет третего варианта, нет всем родного и дорогого нам "не знаю", "возможно", "не то не се" - середины. нет сердца

вы скажите что все не так, что есть оттенки серого. да их обычно 256 и нельзя взять семнадцатый с половиной оттенок, где-то между этим и этим.  все равно информатика вся напрочь дискретна. это набор точек, не способный заполнить собою полностью никакой обьем

мир информатики - это удобный мир логики и скоростных рассчетов, но не более того. вот потому искуственный интелект пока невозможен