Тип файла можно определить, зная его:
а) размер
б) расширенне
в) дату создання
а) размещение​

ОТВЕТ Б НО Я НЕ УВЕРЕН

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

s,i,c,b: integer;

begin

  read(c,b,n);

  randomize;

  for i : = 1 to n do

        a[i]: = random(b) -c+1;

  for i: = 1 to n do

        if i mod 2 = 0 then s: =s+1;

  writeln(s);

end.

я буду писать часть предложения, а внизу табличку, чтобы понятнее было))

набрать 9 литров в первую ёмкость.

1. 9 л       2. 0л (пока что) 

перелить 5 литров во вторую ёмкость.

1.4 л       2. 5л

из второй ёмкости вылить всю воду

1.4л         2. 0л

и из первой ёмкости перелить во вторую ёмкость оставшиеся 4 литра.

1.0 л       2. 4л

набрать полную первую ёмкость

1. 9л     2. 4л

и из неё перелить во вторую 1 литр.

1. 8л     2. 5л

воду из второй емкости вылить

1.8 л     2. 0л

и из 8 литров воды в первой ёмкости перелить во вторую ёмкость 5 литров

1. 3л     2. 5л

вот и