Vừa gà vừa thỏ

Viết chương trình để tìm lời giải cho bài toán sau:
       Trong giỏ vừa thỏ vừa gà
       Một trăm cái cẳng bốn ba cái đầu
 Hỏi có mấy gà mấy thỏ?
                                                                 Giải
Var
       i,j:Integer;
BEGIN
       For i:=1 to 43 do
           If i * 2 + (43 - i) * 4 = 100 Then
               Writeln('So ga la: ',i,' So cho la: ',43-i);
       Readln;
END.