Var f:file of Integer; x,y:Integer; Пусть файл f содержит два элемента: 3 и 7. Определить, какое значение будет иметь переменная y после выполнения следующих операторов:

reset(f); y:=1;

repeat

read(f,x);

y:= y * x

until eof(f);