Cod sursa(job #197965)

Utilizator andrici_cezarAndrici Cezar andrici_cezar Data 7 iulie 2008 14:38:21
Problema Gropi Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.37 kb
var f,g:text;
    x,y,s,aux,i,j:longint;
begin
assign(f,'gropi.in');reset(f);
assign(g,'gropi.out');rewrite(g);
readln(f,x,y);
readln(f,x,y);
readln(f,i,j);
if y>j then begin
            aux:=y;
            y:=j;
            y:=aux;
            aux:=x;
            x:=i;
            i:=aux;
            end;
s:=(j-y+1)+1+(x-i)+1;
writeln(g,s);
close(g);
end.