Помогите пожалуйста. Очень важно и срочно!!! Задание 8 и 9. Буду благодарна .

#8 var k,s: integer;begins:=0;k:=0;while k<12 do begins:=s+2*k;k:=k+3;end;write(s);end.Ответ 36==========================#9var k,s: integer;begins:=0;k:=0;while s<80 do begins:=s+2*k;k:=k+4;end;write(s);end.Ответ 80