{---------------------------------------------------------------------
 - Subiect:
   Intr-o cutie se contin n figuri geometrice de 2 tipuri:
   cu A laturi si cu B laturi. Numarul total de laturi ale tuturor
   figurilor din cutie este m.

 - Cerinta:
   De determinat numerele Xa si Xb de figuri, de tipurile respective,
   prezente in cutie.

 - Intrare:
   Numerele naturale n, m, A si B se introduc de la tastatura.

 - Iesire:
   Numerele naturale Xa si Xb se afiseaza la ecran.

 - Exemplu:
       Intrare: m = 1974    A = 3    |   Iesire:  Xa = 123
                n = 444     B = 5    |            Xb = 321

 - Analiza:
   Din cerinte avem:
     Xa +   Xb = n    | Acesta este un sistem de doua ecuatii si doua
   A*Xa + B*Xb = m    | necunoscute Xa si Xb, care poate fi rezolvat.
 ---------------------------------------------------------------------}


Program Figuri ;
uses crt ;
var A,B,m,n,Xa,Xb: Word ;
begin
clrscr ;

write('Nr de obiecte? n = ') ;             readln(n) ;
write('Nr de laturi? m = ') ;              readln(m) ;
write('Nr de obiecte cu A laturi? a = ') ; readln(A) ;
write('Nr de obiecte cu B laturi? b = ') ; readln(B) ;

if A = B then begin
   Writeln('Runtime Error 666:  The two types are identical!'#10#13'A must not be equal to B');
   Halt(1);
end;

Xa := (m-n*B)div(A-B) ;
Xb := (m-n*A)div(B-A) ; { Xb := n - Xa }

writeln('Xa = ', Xa) ;
writeln('Xb = ', Xb) ;
readkey ;
end.