Pascal ABC:1. [-101,35] отыскать кол-во кратных 42. вычислить 1+2+4+8+16+32...256

Задание 1

program n_1;

var k, i: integer;

begin

   k:=0;

   for i:=-101 to 35 do if i mod 4 = 0 then k:=k+1;

   writeln(k);

end.

Задание 2

program n_2;

var s, i: integer;

begin

   s:=0; i:=1;

   while ilt;=256 do begin

       s:=s+i; i:=i*2;

   end;

   writeln(s);

end.