Определите значение переменной F после выполнения фрагмента программы

F := 100;
if F < 50 then F := F + 140
else F := F - 80;
if F < 50 then F := F + 110
else F := F - 7;

var a: array[1..10] of integer;

i,s: integer;

begin

  randomize;

  for i: = 1 to 10 do begin

      a[i]: = random(100);

      s: =s+a[i];

  end;

  writeln(s);

end.

var a: array[1..10] of integer;

i,mk,pk,s,p: integer;

begin

  randomize;

  p: =1;

  for i: = 1 to 10 do begin

      a[i]: = random(30+10)-10;

      if a[i]> =0 then begin

          pk: =pk+1;

          s: =s+a[i];

      end

      else begin

          mk: =mk+1;

          p: =p*a[i];

      end;

  end;

  writeln(pk,s,mk,p);

end.

x mod 5

-4 -3 -2 -1 0 1 2 3 4  

x div 5

любое целое число от  -429496729 до  429496729 (если x - longint) или от -13107 до  13107 если х - integer

954-459=495

100a+10b+c-100c-10b-a=99a-99c=99(a-c)

найдем все трехзначные что делятся на 99

198297396495594693792891990

и проверяем каждое

program xxx;

const n=30;

var    a : array [1..n] of integer;     i, kn, kd : integer; begin

    readln(n);

    kn: =0;

    kd: =0;     for i: =1 to n do        begin

            write('a[',i,']=');

            readln (a[i]);

            if a[i]=0 then kn: =kn+1;

            if a[i]=2 then kd: =kd+1;         end;

    for i: =1 to n do            write(a[i], ' ');

    writeln();     writeln('количество чисел равных 0 -',kn);

    writeln('количество чисел равных 2 -',kd);     readln(); end.