Tí Bon cứu em bài này

Lập trình giùm em bài:

Vừa gà Vừa Chó trong SGK ấy đọc hoài chẳng hiểu

Chài, mới vào năm học mà đã học bài khó thế này. Ko biết ai ác thế ko biết
Bài này đơn thuần là giải pt nên ko cần nhập số đâu
Program bt;
Var a,b:integer;
Begin
a:=1;b:=1;
while (a+b<= 36) or (4a+2b<=100) do
begin
a:=a+1;
b:=b+1;
end;
writeln('so ga la`:',b);
writeln('so cho la`:',a);
readln;
end.
Các bạn cứ test thử đi. Có gì sai sót vui lòng post lên để mình sửa..........(đau lòng là nhà ko có pascal )

hi thank cái này em thích nghiên cứu trước vậy thôi chứ có ai ác gì đâu Để xem có ra đúng hem