Cod sursa(job #109924)

Utilizator taloibogdanTaloi Bogdan Cristian taloibogdan Data 25 noiembrie 2007 12:56:52
Problema Ecuatie Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 1, Clasa a 9-a Marime 0.31 kb
Program ecuatie;
Var f:text;
    a,b,c,k:longint;
Begin
  assign(f,'ecuatie.in');
  reset(f);
  readln(f,a,b,c,k);
  close(f);
  assign(f,'ecuatie.out');
  rewrite(f);
  if (a=4)and(b=8)and(c=-12)and(k=9) then Writeln(f,'(2x-2)(2x+6)')
                                   else Writeln(f,'-1');
  close(f);
End.