Нужно)) программа которую вы собираетесь скачивать, помечена как shareware. что это значит

Shareware или шароварная прога означает, что это не полностью бесплатная программа, а имеет или ограниченный срок бесплатного использования (демонстрационная версия), или не все функции программы доступны в бесплатной версии

1) a: =-5; b: =-2; while (a+b)< a*b do begin a: =2*a; b: =b+1; end; -5 -2 -7< (-5)*(-2)     a=2*-5=-10   b: =-1;     k=1; -11< 10       a=-20   b=0                 k=2; -20< 0         a=-40   b=1     k=3; -39< -40   нет ответ k=3   а числа a=-40   b=1 a=25; b=1; while(a-b)< (a/b) do begin a: =a+10; b: =-3*b; end; a=25       b=1     k=0; 25-1< 25     a=35   b=-3   k=1 28< 35/-3   нет   k=1   a=35   b=-3

Var a: array[1..10] of integer;           i,s: integer; begin     s: =0;     for i: =1 to 10 do           begin               a[i]: =random(3);               if a[i]=1 then s: =s+1         end;     writeln ('массив a: ');     for i: =1 to 10 do write (a[i],' ');     writeln;     writeln ('элементов массива, равных одному: ',s) end.