Проверьте и решите плиз народ решается судьба за 5ку по информатике=)

1)Определить, сколько клеток будет через 3,6,9,...24 часа, если первоначально была 1 клетка. program qq; var i,s,t:integer; begin wtireln ('введите t'); read (t); s:=1; for i:=3 to t do begin S:=S*2; I:=i+3; end; writeln ('через ' ,t, 'часов будет ', S, ' амеб '); end. 2)У гусей и кроликов вместе 64 лапы.Сколько могло быть кроликов и гусей (указать все сочетания которые возможны)? program qq; var x,y:integer; begin x:=0;y:=0; while y>0 do begin x:=x+1; y:=32-2*x; writeln ('кроликов',x,'гусей',y); end; end, Проверьте пожалуйста решения задач 3)Составить алгоритм решения задачи:сколько можно купить быков,коров и телят,платя за быка 10руб.,за корову - 5руб.,а за теленка - 0,5руб.,если на 100руб.,надо купить 100голов скота? Эту не понимаю как решить подкиньте идей или выложите решение пожалуйста ^_^