Формат ввода Вводится слово, затем последовательность чисел, пока не будет введено число 1.Формат выводаДля каждого числа последовательности нужно вывести строку в формате: идет !Написать на питоне

Из условия неясно, как определяются размеры участков огорода - линейными размерами или площадью. Т.е. что должно быть целым - линейные размеры или площадь? Будем считать, что целыми должны быть линейные размеры.
Это означает, что достаточно среди чисел А и В найти четное и разделить его пополам. В этом случае участок деда будет равен половине огорода. Если оба числа нечетных, деду достанется меньше половины огорода.

var
  A,B:integer;
  f:Text;
begin
  Assign(f,'input.txt');
  Reset(f);
  readln(f,A,B);
  writeln('Размеры участка ',A,', ',B);
  if (A mod 2=0) or (B mod 2=0) then writeln('0')
  else writeln('1')
end.

Результат решения:
Размеры участка 8, 4
0