ЗАДАЧА ПРО КИНОТЕАТР

[NatawaB]

Витя решил сходить в хороший кинотеатр. Каждый кинотеатр в городе, характеризуется двумя числами K и L, где K - количество рядов, а L - количество мест в каждом ряду. Витя считает кинотеатр хорошим, если можно сесто точно по центру зала. Выведите для каждого кинотеатра в городе, хороший он или нет.
Входной файл
Первая строка входного файла содержит n-количество кинотеатров в городе (1 <= n <= 10). Следующие n строк содержат описание кинотеатров, i-ая строка содержит описание i-го кинотеатра: числа Ki и Li, где Ki количество рядов, а Li - количество мест в каждом ряду в i-ом кинотеатре (1 <= Ki, Li <= 30).
Выходной файл:
Для каждого кинотеатра выведите ответ одной строкой: "GOOD", если хороший или "NOT GOOD", если не хороший.

Пример
Входной файл:
2
9 9
9 10
Выходной файл:
GOOD
NOT GOOD

[matr_]

var a:array[1..2,1..10] of integer;
      i,n:integer;
      f,f2:text;
begin
assign(f,'in.txt');
assign(f2,'out.txt');
reset(f);
rewrite(f2);
read(f,n);
for i:=1 to n do begin
read(f,a[1,i],a[2,i]);
end;
for i:=1 to n do begin
if (a[1,i] div 2 = 0) and (a[2,i] div 2 = 0) then writeln(f2,'NOT GOOD')
else writeln(f2,'GOOD');
end;
close(f);
close(f2);
end.

решал Shift_Sk

[matr_]

примерно так)не проверял в паскале не дома!

[Serge_Bliznykov]

господи, простота то какая...
кинотеатр хороший, если и K и L - нечётные...
примерно так:

Readln(fInput, n);
for i:=1 to n do begin
   Readln(fInput, K, L);
   if odd(K) and odd(L) then WriteLn(fOut, 'GOOD')
   else WriteLn(fOut, 'NOT GOOD');
end;