Cod sursa(job #1201170)

Utilizator valen.valentinValentin Valeanu valen.valentin Data 24 iunie 2014 16:11:58
Problema ChatNoir Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
program chatnoir;
var
n,m,x,y,nn,i:longint;
f1,f2:text;
function min(x,y:longint):longint;
begin
if x>y then min:=y else min:=x;
end;
begin
assign (f1,'chatnoir.in');
assign (f2,'chatnoir.out');
reset (f1);
rewrite (f2);
readln (f1,nn);
for i:=1 to nn do begin
readln (f1,n,m,x,y);
if min(x,min(n-x+1,min(y,m-y+1)))<=5 then writeln (f2,'DA') else
writeln (f2,'NU');
end;
close (f1);
close (f2);
end.