Помогите решить информатику пожалуйста(нужно в 3 циклах) Задачи 3.7 и 3.8, 3.6 не нужно

Задание 3.7

//Pascal
var i,n,k:integer;
begin
n:=24;
k:=1;

//количество амеб через
//цикл for

for i:=1 to n div 3 do begin
    k:=k*2;
    writeln('Время :',i*3,' Амеб :',k);
end;
writeln;

//количество амеб через
//цикл while

i:=0;
k:=1;
while i    i:=i+3;
    k:=k*2;
    writeln('Время :',i,' Амеб :',k);
end;
writeln;

//количество амеб через
//цикл Repeat

i:=0;
k:=1;
repeat
   i:=i+3;
   k:=k*2;
   writeln('Время :',i,' Амеб :',k);
until i=n
end.

Задание 3.8

var
k,b,t:integer;
begin
for b:=1 to 10 do
for k:=1 to 20 do
    for t:=1 to 200 do
      if (b*10+k*5+t*0.5=100)and(b+k+t=100)then writeln('Быков: ',b,' Коров:',k,' Телят:',t);
end.