pascal!!!鸡兔同笼问题。已知鸡和兔的总数量，鸡腿和兔腿总数，求鸡和兔各多少只？

program pascal11;
var
heads,feet,chick,rabbit:integer;
begin
write(‘input number of heads:’);
readln(heads);
write(‘input number of feet:');
readln(feet);
chick:=(4*heads-feet:')div 2;
rabbit:=heads-chick;
writeln(‘the number of chick is:',chick:2);
writeln(‘the number of rabbit is:',rabbit:2);
readln
end.

鸡兔共一百只，腿数也共是一百只
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
var m,n:integer;
begin
for m:=1 to 50 do
begin
for n:=1 to 25 do
if m*2+n*4=100 then writeln('鸡有',m,'只，兔有',n,'只');
end.
end.

var
a,b,ji,tu:integer;
begin
read(a,b);
ji:=(4*a-b)div 2;
tu:=(2*b-a)div 2;
write(ji);
write(tu);
end.
a为鸡和兔总数,b为腿数.

var
a,b,ji,tu:integer;
begin
read(a,b);
ji:=(4*a-b)div 2;
tu:=(2*b-a)div 2;
write(ji);
write(tu);
end.
应该是对的