Укажите, сколько раз выполнится тело цикла с заданным заголовком: for i: = 2 to 6 do

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5

var v1,v2,t,t1: real;

begin

  read(v1,v2,t,t1);

  writeln(v1*(t+t1)< =v2*t1);

end.

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

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

end.