Cod sursa(job #109924)
Utilizator | 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.