Cod sursa(job #15018)

Utilizator floringh06Florin Ghesu floringh06 Data 10 februarie 2007 15:48:28
Problema Elimin Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var fi,fo:text;
    i,m,n,r,c:longint;

begin
assign(fi,'elimin.in'); reset(fi);
assign(fo,'elimin.out'); rewrite(fo);
read(m,n,r,c);
i:=1;
if m<n then
  while 1<2 do
    begin
     if i mod 2=1 then inc(i);
     if i mod 2=0 then dec(i);
    end
  else writeln(fo,'-1');
close(fi);
close(fo);
end.