Cod sursa(job #635289)

Utilizator dragangabrielDragan Andrei Gabriel dragangabriel Data 19 noiembrie 2011 09:29:17
Problema ChatNoir Scor 0
Compilator fpc Status done
Runda .com 2011 Marime 0.48 kb
program chatnoir;
var f,g:text;
n,i,j,m,x,y:longint;

function marcare(x,y,m,j:longint):longint;
var min:longint;
begin
min:=maxlongint;
if min>m then min:=m; if min>j then min:=j;
if min>x-m then min:=x-m;if min>y-j then min:=y-j;
marcare:=min;
end;


begin
assign(f,'chatnoir.in');reset(f);
assign(g,'chatnoir.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
readln(f,x,y,m,j);
if marcare(x,y,m,j)>2 then writeln(g,'NU') else writeln(g,'DA');
end;
close(g);
end.