Создана база данных о поступлении продуктов. Какие продукты будут результатом фильтрации по столбцу Д по условию МЕНЬШЕ 500? *  рис /Пермь пшено /Краснодар гречка /Самара мука /Тула бананы/ Челябинск

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

var

  i: integer;

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

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.

program xxx;

  var n, c, d, e, s : integer;

begin

    write('введите число');

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт